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IDENTIFICATION 





PRODUCT CODE: AC-F241B-MC 

PRODUCT NAME: CJKDCBO KEF11-AA DIAG #1 
DATE CREATED: NOV-79 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS_ SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTUED AS A COMMITMENT BY 
DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY OCCUR IN THIS MANUAL. 


THE SOF TWARE ot ye ag IN THIS DOCUMENT IS FURNISHED TO_ THE 
PURCHASER UNDER LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN Be COPIED (WITH INCLUSION OF DIGITAL*S 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION 


SEQ@ 0002 


PROGRAM HISTORY 


DATE REVISION REASON FOR REVISION 
JUNE =79 A FIRST RELEASE 
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SEQ 0003 





CJKDCB, CJKDDB 


~ DESIGN TO Ba} AND REPORT LOGIC FAULTS IN THE ) | 
11 MMU AND FLOATING POINT CHIP SET. THE 

DESIGN 1S AN ATTEMPT TO REACH ALL MIRCO-CODE LOCATIONS. 

TESTS ARE PARTITIONED INTO TWO STAND-ALONE PROGRAMS 

DESCRIBED BELOW. 


NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 

UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS (CPU, MMU) HAVE 
BEEN RUN AND IN MOST CASE THAT THERE IS ONLY A SINGLE 
POINT FAULT EXISTS. IF THE PROGRAMS OR TEST 

oy IN ORDER THEN ERROR MESSAGES MAY NOT BE 


A. CJKDCB 
CJKDCB TESTS: (FLOATING POINT TEST 1) 
LDFPS 
STFPS 
CFCC 
ayer’ SETD, SETI AND SETL 
LDF AND LDD (ALL SOURCE MODES) 
STD (MODE 0 AND 1) 
ADDF, ADDD AND SUBD (MOST CONDITIONS) 
ADDF, ADDD AND SUBD (ALL CONDITIONS NOT 
TESTED IN DFFPA) 
CMPD AND CMPF 


DIVD AND DIVF 


























B. CJKDDA 


CJUKDDA TESTS: (FLOATING POINT TEST 2) 
STF AND STD (ALL MODES) 
STCFD AND _STCDF 
CLRD AND CLRF 


NEGF, ABSF AND TSTF (ALL SOURCE MODES) 
LDFPS (ALL SOURCE MODES) 

LDCIF AND LDCLF 

LDCID AND LDCLD 


LDEXP 

STFPS (ALL DESTINATION MODES) 
STCFL AND STCFI 

STCDL AND STCDI 

STEXP 

STST 


2.5 


» 


REQUIREMENTS 


EQUIPMENT 


A PROCESSOR WITH THE DCF11-AA,KTF11-AA AND KEF11~A CHIP SET. 


STORAGE 
PROGRAMS REQUIRE A MEMORY SYSTEM OF AT 


BOTH 
LEAST 16K TO LOAD AND RUN. 


PRELIMINARY PROGRAMS 


THESE TWO DIAGNOSTICS WILL ASSUME THAT THE 
BASIC CENTRAL PROCESSOR IS FAULTLESS, THEREFORE 
WHEN IN DOUBT RUN THE DCF11~-AA PROCESSOR DIAG- 
NOSTICS BEFORE THESE FLOATING POINT DIAGNOSTICS. 


LOADING PROCEDURE 


THE PROGRAMS WILL BE SUPPLIED ON _ THE 11/23 
ep gp MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
PROGRAM AND OPERATOR ACTION 


P LOAD PROGRAM INTO MEMORY 

2. LOAD ADDRESS 200 

oe SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 

4. PRESS START 
ON FIRST PASS THE PROGRAM 
WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR THE 
SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 
= APPLY. 

Pe THE PROGRAM WILL LOOP AND AN END OF PASS WILL 


BE TYPED AT THE END OF EVERY PASS. 
OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS 


SEQ 0005 


G 1 
THE SWITCH SETTING ARE: 
SEQ 0006 
OC TAL 
SwW<15>=1... 100000 HALT ON ERROR 
SW<14>=1.. 40000 LOOP ON CURRENT TEST 
SW<13>=1... 20000 INHIBIT ERROR TYPE OUTS 
SW<12>=1... 10000 INHIBIT T-BIT_ TRAPPING 
SW<11>=1... 4000 INHIBIT ITERATIONS 
SW<10>=1... 2000 RING TTY BELL ON ERROR 
SW<9>=1.... 1000 LOOP ON ERROR 
SW<8>=1.... 400 LOOP ON TEST SPECIFIED IN SW<6> 
THROUGH SW<0> 
6 ERRORS 


6.1 SUMMARIES 


WHEN AN ERROR IS Taye taal AN ERROR MESSAGE ACCOMPANIED 
BY THE ERROR PC ARE TYPED. 

THERE ARE FOUR STANDARD ERROR MESSAGES USED, DESCRIBING 

THE PROBABLE CAUSE OF FAILURE, SUCH AS: PROBABLY BAD MMU CHIP; 
BAD FP1 CHIP; BAD HYBRID FP CHIP; FLOATING POINT ERROR. 


6.2 ERROR RECOVERY 


SW<15:9>=0... MOST ERRORS WILL CAUSE EXECUTION [0 
GO TO THE START OF THE NEXT TEST 
AFTER THE MESSAGE IS TYPED. A_ FEW 
TESTS ARE IN SECTIONS. _IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 


SW<15>=1... THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE _ THE 
PROGRAM TO CONTINUE AS IF SW<15>=0. 


Fe RESTRICTIONS 


8.1 EXECUTION TIMES 
LESS THAN 2 SECONDS FOR EACH PROGRAM ON ANY PASS. 





8.2 


8.3 


8.4 


8.5 


8.6 


STACK POINTER 
THE STACK POINTER IS INITIALIZED TO 1100 IN EACH OF 
THE TWO PROGRAMS. 


PASS COUNT 


THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED. 


T-BIT TRAPPING 


IF SwW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 
ON EVERY OTHER PASS. FIRST PASS WILL_NOT ENABLE 
TRACE TRAPS. NOTE Sw<12>=1 DISABLES T-BIT TRAPS. 


SOFTWARE SWITCH REGISTER 


or OF THE TWO PROGRAMS WILL RUN WITH OR WITHOUT 
CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
PROGRAMS WILL GO AHEAD AND USE IT FOR THE SWITCH 
FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 
S ONSOLE SWITCH 7 ON be aie * A 


Loe] 
~ 


THE PROGRAM WIL 

WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL G. 
NOTE THAT WHEN NOT RUNNING UNDER ACT, APT OR CHAIN 
THE USER WILL BE ASKED FOR A SOFTWARE SWITCH 
REGISTER gy PB LOADING ADDRESS 200 es 


RUN AFTER LOAD 
REGISTER IS ON THE SYSTEM). 


ACT, APT AND XXDP COMPATIBILTY 
THE SE = ARE FULLY COMPATIBLE WITH: 


ACT 
XXDP MONITOR AND CHAIN PROGRAMS. 


PROGRAM DESCRIPTION 


A 


SEQ 0007 


A OD 


ae - - 


TEST 2 





TEST 3 


TEST 4 





TEST 5 





oe" eee 


l 
LDFPS, STFPS AND DATA PATHS TEST 


THIS 1S A TEST OF THE LDFPS (LOAD FLOATING POINT 
STATUS) AND STFPS oe FLOATING POINT STATUS) 
INSTRUCTIONS. VARIOUS PATTERN ARE USED AND _ RUN 
THROUGH THE Agta POINT Ana REGISTER. 

Y DMO AND SMO ARE USED. NOTE 
MUST BE USED BE CAUSE SOME OF THE FPS BITS 


MASK 
CANNOT BE SET. 


CFCC TEST 





THIS IS A TEST OF THE COPY CONDITION CODES 
INSTRUCTION, CFCC. 


SETF, SETD, SETI AND SETL TEST 


THIS IS A TEST OF THE SETF, SETD, SETI AND_ SETL 
INSTRUCTIONS. EACH INSTRUCTION IS EXECUTED WITH THE 
FPS CONTAINING ALL ONES AND ALSO WITH THE FPS CLEAR. 
THE RESULT OF EACH SITUATION IS CHECKED. 


ILLEGAL FPP OP CODES AND STST TEST 





THIS IS A TEST OF THE FPP OPERATION CODES: 


170077 


THESE ARE ILLEGAL INSTRUCTIONS AND WITH INTERRUPTS 
ENABLED SHOULD CAUSE A_ TRAP TO 244. ALSO Mg 
HERE IS THE INSTRUCTION: STST R1, WHICH SHOULD 

THE FEC CODE 2 IN R1, AFTER ANY OF THE ABOVE OP 
CODES IS EXECUTED. 


FID, INTERRUPT DISABLE, BIT TEST 
THIS IS A TEST OF FPS BIT 14 (FID) OR FLOATING 


INTERRUPT DISABLE. AN ILLEGAL INSTRUCTION IS 
EXECUTED WITH FID=1. NO INTERRUPT SHOULD OCCUR. 


1 


TEST 6 


TEST 7 





TEST 10 





TEST 11 


TEST 12 





TEST 13 





LDD AND STD, WITH SRC AND DST MODE 1, TEST 


THIS IS A TEST OF BOTH THE INSTRUCTION: 
LDD (RO) .ACO 
AND THE INSTRUCTION: 
STD ACO, (RO) MOST OF THE 


FAILURES ARE ISOLATED TO THE SRC OR DST FLOWS. NOTE 
THAT THE INTEGRITY OF ACO HAS NOT BEEN ASSURED. 
THIS MEANS THAT IN SOME CASES IT WILL BE IMPOSSIBLE 
TO ISOLATE CERTAIN DATA PATTERN FAILURES TO EITHER 
THE FLOWS OR THIS ACCUMULATOR. 


FSRC MODE 0 TEST 





THIS IS A TEST OF FSRC MODE ZERO USING THE LDD AND 
LDF INSTRUCTIONS. 


FDST MODE. 0 TEST 





THIS IS A TEST OF THE STORE INSTRUCTIONS, STD AND 
STF, WITH FDST MODE OC. 


ACCUMULATORS DATA PATTERNS TEST 





THIS IS A TEST OF THE FLOATING POINT PROCESSOR 
ACCUMULATORS. 


EACH ACCUMULATOR IS TESTED IN TWO WAYS: 
1 TEST PATTERN GENERATED BY FLOATING A 
ONE ACROSS A FIELD OF ZEROES. 
2 TEST PATTERN GENERATED BY FLOATING A 
ZERO ACROSS A FIELD OF ONES. 
EACH OF pe an grag Re ACO THROUGH ACS IS TESTED. 
ACCUMULATORS DUAL ADDRESS TEST 





THIS TEST PERFORMS A DUAL ADDRESSING TEST ON _ THE 
FLOATING ACCUMULATORS. NOTE THAT ACCUMULATOR ZERO 
IS USED TO ACCESS ALL THE OTHERS. 


FSRC MODE O WITH ILLEGAL ACCUMULATOR TEST 








THIS IS A TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 
AND /. USE OF EITHER OF THESE NON-EXISTENT 
ACCUMULATORS SHOULD RESULT IN A TRAP TC 244 WITH 
FEC=2 (ILLEGAL FPP INSTRUCTION). 


SEQ 0009 


ee ND 


TEST 14 


TEST 15 





TEST 16 


TEST 17 





TEST 20 





TEST 21 





TEST 22 





TEST 25 





TEST 24 





FSRC MODE 2 TEST 


THIS IS A TEST OF FSRC MODE 2, AUTO INCREMENT MODE. 
FSRC MODE 4 TEST 


THIS IS A TEST OF FSRC MODE 4, AUTO DECREMENT MODE. 
FSRC MODE 2, WITH FD=0, TEST 


THIS IS A TEST OF FSRC MODE 2 WITH FD=0. (AUTO 
INCREMENT ) 


FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 








THIS IS A TEST OF FSRC MODE 2 USING GR7 (THE PC). 
THIS IS IMMEDIATE MODE. 


FSRC MODE 3 TEST 








THIS IS A TEST OF FSRC MODE 3, AUTO INCREMENT 
DEFERRED : 


FSRC MODE 5 TEST 





THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
DEFERRED. 


FSRC MODE 6 TEST 





THIS IS A TEST OF FSRC MODE 6, INDEX MODE 
FSRC MODE 7 TEST 





THIS IS A TEST OF FSRC MODE 7, INDEX DEFERRED MODE. 
(BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 





bee IS A TEST OF THE (BUT EZBT Y8) FORK, THE (BUT 
ENBT) FORK AND (BUT FIUV) FORK IN THE LOAD 
INSTRUCTION FLOWS. 

EACH OF THE PATTERNS: 


0 
+NUM 
-NUM 
-0 


-— <6 


SEQ 0010 | 


ae 


IS LOADED TWICE, ONCE WITH AC>O THEN WITH AC=0. : 
AFTER EACH LOAD THE FPS IS CHECK TO INSURE THAT SEQ 0011 
CONTROL WAS PASSED THROUGH WITH THE FORKS PROPERLY. 


TEST 25 ADDF .AD ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 





THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 





TEST 26 ADDD AND SUB WITH FSRC=0 
oaqeae one ase 

THIS IS A TEST OF ADD AND SUB WITH FSRC=0. 
TEST 27 SUBD WITH AC=0 TEST 


ee ee ee ae eee ee eee Se 





THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE AND 
NEGATIVE FSRC*S ARE TRIED. 


TEST 30 ADDD WITH AC=0 TEST 








- POSITIVE AND NEGATIVE FSRC'S ARE TRIED. 
TEST 31 ADDF AND ADDD WITH E(AC)=E(FSRC) AND (BUT FT) TEST 














THIS IS A TEST OF THE ADD INSTRUCTION WITH THE 
OPERANDS HAVING EQUAL EXPONENTS. THE (BUF FT) FORK 
IN THE ROUND/TRUNK FLOWS IS ALSO TESTED. 


TEST 32 ADDF AND ADDD WITH ECAC) LESS THAN E(FSRC) TEST 
esata tie REI Ee OES 





THIS IS ATEST OF THE ADDD AND ADDF INSTRUCTIONS AND 
THE ALIGN AC ALGORITHM FLOWS. THE CONSTANT (25 FOR 
FLOATING, 57 FOR DOUBLE) USED IS CHECKED. THEN 
SIMPLE AND WORST CASE ALIGNMENT SITUATIONS ARE 
TRIED. NOTE ECAC) IS LESS “THEN E(F SRC) 


TEST 33 ADDF AND ADDD WITH E(AC) GREATER THAN E(FSRC) TEST 
ie LN it a 6h Nn Rol Sn DERE a NT A Ae OOO 





THIS IS A TEST OF THE ADDD AND ADDF INSTRUCTIONS AND 
THE ALIGN FSRC ALGORITHM ae FIRST THE ‘gare 


AND WORS CASE 
ALIGNMENT SITUATIONS ARE TRIED. NOTE ECAC) IS 
GREATER THAN E(FSRC). 


TEST 34 ADDD WITH NEGATVE OPRANDS TEST 





THIS IS A TEST OF THE ADDD INSTRUCTION WITH NEGATIVE 
oo EVERY COMBINATION OF OPERAND SIGNS IS 


TEST 35 SUBD TEST 





TEST 36 


TEST 37 


TEST 40 





TEST 41 





TEST 42 





TEST 43 





TEST 44 





THIS IS A TEST OF THE SUBD INSTRUCTION. BOTH A 
oth IVE AND A NEGATIVE NUMBER IS SUBTRACTED FROM IT 


NORMALIZE ALGORITHM TEST 


THIS IS A TEST OF THE NORMALIZE FLOW ALGORITHM. TWO 
PATTERNS ARE USED, FIRST THE MINIMUM SITUATION 
REQUIRING ONE LEFT SHIFT AND THEN THE MAXIMUM 
SITUATION REQUIRING 56 SHIFTS. 


ROUND\ TRUNK TEST 





THIS IS A TEST OF THE ROUND\TRUNK FLOWS. IN 
PARTICULAR TWO THINGS ARE TESTED: FIRST A CONDITION 
IN WHICH ROUNDING RESULTS IN THE NEED _ FOR 
RENORMALIZATION, AND SECOND THE PSW CONDITION CODES 
N AND Z BIT COMMBINATIONS 


OVER\UNDER TEST 





THIS IS A PARTIAL TEST OF THE OVER\UNDER FLOWS. ONE 
OVERFLOW AND TWO UNDERFLOW CONDITIONS ARE CHECKED. 
THE REMAINING UNDERFLOW COND. AND _ THE ae ee 
OVERFLOW COND. WILL BE CHECKED LATER USING THE Xx 
INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
BOTH WITH TRAPS ENABLED (FIU=1 OR FIV=1) AND ALSO 
WITH TRAPS DISABLED (FIU=0 OR FIV=0). 


LDCFD AND LDCDF TEST 





THIS IS A TEST OF LDCFD AND LDCDF. 
CMPD TEST 





THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
INSTRUCTION AND CHECK THE RESULTS 


DIVD WITH (FSRC=0) AND (BUT FD) TEST 





THIS IS A TEST OF THE DIVD INSTRUCTION WITH A _ ZERO 
DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
ENABLED AND TRAPS DISABLED. 


DIVF TEST 





THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 


SEQ 0012 


TEST 45 


TEST 46 


TEST 47 


TEST 50 





TEST 51 





TEST 52 





TEST 53 





DIVD TEST 


THIS IS A TEST OF THE DIVD_ INSTRUCTION. NOTE THAT A 
TINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 
MUL 





THIS IS A TEST OF THE MULF_ INSTRUCTION. IT MAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS. 


MULD TEST 





THIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULD INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 














THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS USING THE MULF INSTRUCTION WITH TRAPS 
DISABLED. or THAT A SUBROUTINE IS USED TO SET UP 


THE RESULTS. 


UNDER\OVER FLOW, USING MULD WITH TRAPS DISABLED, TEST 





THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 
CONDITIONS THAT CAN _ ARRISE USING THE MULD 
INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
-USED TO SET UP THE OPERANDS, EXECUTE THE MULD 
INSTRUCTION AND CHECK THE RESUL TS. 





UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 
Se reece 


THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 
CONDITIONS THAT CAN OCCUR USING THE MULF 
INSTRUCTION. A SUBROUTINE IS CALLED TO SET UP THE 
OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
RESULTS. HERE THE PARTICULAR INTERRUPT, EITHER 
OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 


UNDER\OVER FLOW, USING MULD WI°H TRAPS ENABLED, TEST 


rae IS A TEST OF THE OVER FLOW AND UNDER FLOW 


ENABLED. SUBROUTINE IS USED TO SET UP THE 
ua ts.” EXECUTE THE MULD INSTRUCTION AND CHECK THE 





SEQ 0015 


——— 
CEnn 


TEST 54 


TEST 57 





TEST 60 


10. 


USE OF A 
THE MODF INSTRUCTION AND CHECK THE RESULTS. 





MODF TEST 


THIS IS A TEST OF THE MODF INSTRUCTION, WHICH MAKES 
SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 


MODD TEST 





THIS IS A TEST OF THE MODD INSTRUCTION. IT _ MAKES 
OF A SUBROUTINE TO SET UP THE ARGUMENTS, EXECUTE 


USE 
THE INSTRUCTION AND CHECK THE RESULTS. 


UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 





THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW 
CONDITIONS. IT MAKES USE OF A SUBROUTINE TO SETUP 
THE OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK 
THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 


_UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


MORE MICROCODES COVERAGE, TEST 


LISTING 


SEQ 0014 


ts 
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CJKDCB.P11 12=MAR=80 15:26 SEQ 0015 

1 .LIST ME 

2 "NLIST MD.MC,CND 

4 

5 

7 

? 

8 

9 

10 
11 

12 

13 
14 
15 
16 
17 
18 
19 
20 ; 
21 
22 
23 
24 
25 
26 
27 .ENABL ABS 
28 
29 
31 _TITLE CJKDCB-A KEF11-A FP DIAG PART 1 

32 >*COPYRIGHT (C) NOV 1979 
33 > *DIGITAL EQUIPMENT CORP. 
% ; SMAYNARD . MASS. 01754 
36 : sPROGRAM BY DIAGNOSTIC ENGINEERING 
38 *TH IS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
32 ; #PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 
41 000001 $TN=1 
42 160000 $SWR=160000 ::HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
44 
45 000244 FPVECT=244 
46 177400 $SWR=177400 
47 000200 $SWRMSK=200 
48 000011 TAB=11 
49 000015 CRLF=15 

3 .SBITL BASIC DEFINITIONS 

53 ;*INITIAL ADDRESS OF THE STACK POINTER *** 1100 x** 

54 001100 STACK= 1100 

55 “EQUIV EMT,ERROR ; :BASIC DEFINITION OF ERROR CALL 
56 “EQUIV IOT,SCOPE : “BASIC DEFINITION OF SCOPE CALL 


D 2 
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CJKDCB.P11 


12-MAR-80 15: 


200 
177776 


177774 
177772 
177570 
177570 


BASIC DEFINITIONS 


paetace Ges DEF INI TIONS 


ODE As ee eeene TAB 


LF= le CODE FOR LINE FEE 

CR= 1 :: CODE FOR CARRIAGE RETURN 

CRLF= 200 =: CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 : =PROCESSOR STATUS WORD 

QUIV PS,PSW 

STKLMT= 177774 :: STACK LIMIT REGISTER 

PIRQ= 177772 ; PROGRAM INTERRUPT REQUEST REGISTER 
177570 : ; HARDWARE SWITCH REGISTER 


DSWR= 
DDISP= 177570 


:*GENERAL PURPOSE REGISTER DEFINITIONS 
RO= x0 ; ; GENERAL Reel Sten 


R1= 1 ; GENERAL REGISTER 
R2= m a RAL REGISTER 
R3= % ;;GENERAL REGISTER 
R4= 44 ;;GENERAL REGISTER 
R5= %5 ;;GENERAL REGISTER 
R6= 26 ; GENERAL REGISTER 
R7= %7 RAL REGISTER 
= 26 S ISTACK POINTER 
PC= x7 ; PROGRAM COUNTER 


> ;PRIORITY LEVEL 0 
PRI= 40 > :PRIORITY LEVEL 1 
PR2= > :PRIORITY LEVEL 2 
PR3= 140 ::PRIORITY LEVEL 3 
PR4= > ;sPRIORITY LEVEL 4 
PR5= 240 : PRIORITY LEVEL 5 
PR6= 300 >:PRIORITY LEVEL 6 
PR7= 340 >:PRIORITY LEVEL 7 
; Pda REGISTER'’ SWITCH DEFINITIONS 
Swi4= 40000 
SW13= 
SWi2= 10000 
SWii= 4000 
Sw10= 2000 
swo9= 1000 
SwOo8= 400 
swo7= 200 
SwO6= 100 
swos= 40 
Swo4= 20 
Sswo3= 10 
SwO2= 
SWwOi= 2 
SwOO= 1 
-EQUIV Sw09,S 
-EQUIV SWO8,SW8 

QuI SWO7, SW7 


-EQUIV 
-EQUIV SW06,SW6 


HARDWARE DISPLAY REGISTER 


SEQ 0016 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR~80 15:26 


CJKDCB.P11 


ronronrnnw vw 
ARAYISVSVRARWNYVSDHVAAR 


SUS 


139 


 . 
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BASIC DEFINITIONS 


TPV 
PI ROVE C= 


SW05 , SW5 


BIT00,BITO 


C Sale TRAP VECTOR ADDRESSES 


>;TIME OUT AND OTHER ERRORS 
Mace AND ILLEGAL INSTRUCTIONS 


24 sey 


FAIL 
30 : [EMULATOR TRAP (EMT) **ERROR®* 
c "TRAP’’ TRAP 


: TTY KEYBOARD VECTOR 
ITTY PRINTER VECTOR 
240 ;PROGRAM INTERRUPT REQUEST VECTOR 
.SBTTL FPP REGISTER DEFINITIONS 


SEQ 0017 


. 2 
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CJKDCB.P11 12-MAR- 
169 000007 
170 
171 
17 
17 000000 
174 
175 
16 
17 000174 
178 000174 000000 
1m 000176 000000 
181 000200 000137 001466 


FPP REGISTER DEFINITIONS SEQ 0018 
AC7 =%7 
.SBTTL TRAP CATCiicR 
=0 
‘ *ALL UNUSED LOCATIONS oo 4 - 2% Na bed A '',42,HALT"’ 
*SEQUENCE TO CATCH ELLE Se TRAPS AND INTERRUP 
LOCATION 9, CONTAINS 10. CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD Q 7, SOFTWARE DISPLAY REGISTER 
SWREG: 7: SOFTWARE SWITCH REGISTER 
. SBTTL STARTING ADDRESS(ES) 


QASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 





CJUKDCB=A KEF11-A FP DIAG PART 1 MACY11 SAC O32 
12-MAR~80 15:26 COMMON T 


CJKDCB.P11 


182 
183 


LOO LLSRL RYE 


sggggsasessssssssssesegeses 


ee ee ee ee ee ieee 


SYRURNYSERKASKRAENSRRVSAARNSKRANSS 


195 


Sess 


001100 


os 2-MAR-80 


.SBTTL COMMON TAGS 


G 2 
PAGE 5 


Pee ee Teer Tere rTrrTTTrTTTTTTTTTTT TTT Ti TiiiTii itt ti iii iL 


RTHI S 
> *USED 


SCMTAG: 


SBDADR : 
SGDDAT: 
SBDDAT : 


$SAUTOS8 


SINTAG: 


-=1100 


55555 


CDOCOOOOCOOOCOCOOooo oon 


WORD 


pi alent —DOOCOCCOooOoO 


WR 
DDISP 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


3zSTART OF COMMON TAGS 


: s CONTAINS THE TEST NUMBER 
; CONTAINS ERROF. FLAG 
: CONTAINS SUBTEST ITERATION COUNT 
AINS SCOPE LOOP ADDRESS 


T 
« RESERVED--NOT TO Be USED 


; ;AUTOMATIC MODE INDICATOR 
7: INTERRUPT MODE INDICATOR 


: :ADDRESS OF SWITCH REGISTER 
; ;ADDRESS OF Bo Gal REGISTER 


Y BUFFER 
SUTTY PRINTER STATUS REG. ADDRESS 
:; TTY PRINTER BUFFER REG. ADDRESS 
ce NS NULL CHARACTER FOR FILLS 
: CONTAINS # OF FILLER CHARACTERS REQUIRED 
$% TER A “LINE FEED" 
LABLE’' FLAG (BIT<07>=0=YES) 
SS _ FROM 


st 
+ : WHICH Swe + WAS OBTAINED 
sce ( (SREGAD) + 
: ; CONTAINS CCSREGAD) #2) 
:: CONTAINS (($REGAD)+4) 
>: CONTAINS (($REGAD) +6) 
>: CONTAINS (($REGAD)+10) 
:: CONTAINS ((S$REGAD) +12) 
:: CONTAINS ((SREGAD) +14) 
::CONTAINS (($REGAD) +16) 
::CONTAINS (($REGAD) +20) 
+: CONTAINS (($REGAD) +22) 
: CONTAINS (($REGAD) +24) 
>: CONTAINS (($REGAD) +26) 
=: CONTAINS (($REGAD) +30) 
: CONTAINS (($REGAD) +32) 
1 (oe ( (SREGAD) +34) 

CONTAINS (($REGAD) +36) 
=: CONTAINS (($REGAD) +40) 


—— 


SEQ 0079 
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SEQ 0020 


S$REG21: .WORD 0 : CONTAINS (($REGAD) +42) 
SREG22: .WORD 0 : CONTAINS (($REGAD) +44) 
S$REG23: .WORD 0 33 CONTAINS ( (SREGAD) +46) 
$ : WORD 0 : ;USER DEFINED 
$STMP1: .WORD 0 : ;USER DEFINED 
STMP2: .WORD 0 : ;USER DEFINED 
STMP3: .WORD 0 ; ;USER DEFINED 
S$TMP4: .WORD 0 : USER DEF INED 
$TMP5: .WORD 0 : ;USER DEF INED 
% :  .WORD 0 : sUSER DEF INED 
7: .WORD OQ : :USER DEF INED 
STMP10: .WORD 0 : ;USER DEF INED 
$TMP11: .WORD 0 : ;USER DEF INED 
STMP12: .WORD 0 : ;USER DEF INED 
$TMP13: .WORD 0 + :USER DEF INED 
STMP14: .WORD 0 : sUSER DEF INED 
STMP15: .WORD 0 : ;USER DEFINED 
STMP16: .WORD 0 : ;USER DEF INED 
$TMP17: .WORD 0 SER DEF I 
TMP20: .WORD 0 ; ;USER DEF INED 
S$TMP21: .WORD 0 ER DEF 
22: .WORD 0 : [USER DEF INED 
STMP23: .WORD 0 : ;USER DEFINED 
STIMES: 0 > :MAX. NUMBER OF ITERATIONS 
SESCAPE :0 : ESCAPE ON ERROR ADDRESS 
$BELL: .ASCIZ > 5 mentite :: CODE FOR BELL 
SQUES: I] : QUESTION MARK 
SCRLF : ASCII <45> ; « CARRIAGE RE TURN 
SLF : eASCIZ <12> :;LINE FEED 


RERERERRERRERERER ARR ERRER EERE AR RRR ER ERR R ERE R RRR RRR 


“SBTTL APT MAILBOX-E TABLE 


3s ARR AEAERR EERE AERERAERAAREAAEEREREERREEKEEREERERRERKERREEESR 





EVE 
SMAIL: 7 ;APT MAILBOX 
SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
SFATAL: .WORD ATAL ;:FATAL ERROR NUMBER 
STESTIN: .WORD ATESTN ;;TEST NUMBER 
ASS: .WORD S ;;PASS COUNT 
SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
IT: .WORD 3:1/0 T NUMBER 
GAD: .WORD 2 3ME —_ 
GLG: .WORD AMSGLG yg LENGTH 
SETABLE: T ENVIRONMENT TABLE 
-BYTE AENV ‘ENV BYT 
.BYTE AENV“ ;: ENVIRONMENT MODE BITS 
SSWREG: .WORD ASWREG : APT SWITCH REGISTER 
SWR: .WORD S STUSER rune TCHES 
SCPUOP: .WORD ACPUOP 
;* BITS 1Se1izePU T YPE 
;* 11/04=01, 11705=02. 1 aa 11/40=04 ,11/45=05 
;* 11/70=06.PDQ=07 ,d=10 
;* BIT 10=REAL TIME CLOCK 
3* BIT 9=FLOATING POINT PROCESSOR 
;* BIT 8=MEMORY MANAGEMENT 
: HIGH ADDRESS.M.S. BYTE 


1 2 
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CJKDCB.P11 12=MAR=80 15:26 MAILBOX~E TABLE SEQ 0021 
294 001347 000 $¢MTYP1: .BYTE AMTYP1 5 MEM. ive BLKA1 
295 - MEM, YTE == (HIGH BYTE) 
296 * NSEC CORE=001 
297 :* 300 NSEC BIPOLAR=002 
298 . NSEC MOS=0 
299 001350 000000 $MADR1: .WORD AMADR1_ ;;HIGH ADDRESS kA 
300 . : tT = BYTES, THIS WORD AND LOW OF ‘‘TYPE’’ ABOVE 
31 001352 000 $MAMS2: .BYTE S i HIGH ADDRESS. 
32 001353 000 $MTYP2: .BYTE AMTYP2 ;;MEM.T 
303 001354 000000 _ $MADR2: .WORD AMADR2 ;;MEM. LAST “ADDRESS ,BLKA2 
00 000 : .BYTE AMAMS : THIGH ADDRESS.M.S.BYTE 
3S 001357 000 $MTYP3: .BYTE AMTYPS ;: YPE, 
306 001 000000 SMADR3: WORD AMADR3 ::MEM.LAST ADDRESS ,.BLK43 
307 001362 000 SMAMS4: .BYTE AMAMS4 : SHIGA ADDRESS ,M.S.BYTE 
308 001363 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE, BLKA 
309 001364 000000 SMADR4: _WORD AMADR4 ::MEM.LAST ADDRESS,BLK&4 
310 001366 000000 $VECT1: .WORD AVECT1 ::INTERRUPT VECTOR#1,BUS PRIORITY#1 
311 001370 000000 SVECT2: [WORD  AVECT2 :: INTERRUPT VECTOR#2BUS PRIORITY4#2 
312 001372 000000 SBASE: .WORD ABASE 3 IBASE ADDRESS OF EQUIPMENT UNDER TEST 
313 001374 000000 VM: .WORD ADEVM  ;:;DEVICE MAP 
314 376 000000 $CDW1: .WORD ACDW1 : {CONTROLLER DESCRIPTION WORDA1 
315 400 000000 $ "WORD ACDW2 ::CONTROLLER DESCRIPTION WORD#2 
316 001402 000000 "WORD ADDWO ::DEVICE DESCRIPTOR WORDAO 
317 001404 000000 $DDW1: .WORD ADDW1 ::DEVICE DESCRIPTOR WORD#1 
318 001406 000000 $DDW?: .WORD AdbWe > DEVICE DESCRIPTOR WORD#2 
319 001410 000000 $DDW3: .WORD *:DEVICE DESCRIPTOR WORD#S 
001412 000000 $DDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORD#4 
331 001414 000000 . WORD 7:DEVICE DESCRIPT 
3322 001416 000000 SDDW6: .WORD ADDW6 ;;:DEVICE DESCRIPTOR WORD#6 
323 420 000000 $DDW7: .WORD ADDW7 ::DEVICE DESCRIPTOR 7 
334 001422 000000 . WORD ADDuB  :DEVICE DESCRIPTOR WORD#S 
325 001424 000000 . WORD *:DEVICE DESCRIPTOR WORD#9 
426 000000 S$DDW10: .WORD ADDW1O0 ;:DEVICE DESCRIPTOR 0 
327 001430 000000 $DDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#1i 
328 001432 000000 $DDW12: .WORD ADDwI 2 = :DEVICE DESCRIPTOR 12 
329 001434 000000 3: “WORD ADDW13 ::DEVICE DESCRIPTOR WORD#13 
330 001436 000000 $DDW14: .WORD ADDW14 ICE DESCRIPTOR WORDA14 
331 001440 000000 5: _WORD ADDWIS ::DEVICE DESCRIPTOR WORDA15 
333 
334 001442 SETEND 


ae 


EES 


J 2 
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CJKDCB.P 1 | 12=MAR=80 15:26 OR POINTER TABLE SEQ 0022 
336 _SBTTL ERROR POINTER TABLE 
2 58 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
339 **THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F 
340 : LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 1S PERTINENT. 
341 - «NOTE 1 IF $I1TEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
se * ®NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
344 pt EM ::POINTS TO THE ERROR MESSAGE 
345 * DH ::POINTS TO THE DATA HEADER 
346 ;* DT : :POINTS TO THE DATA 
x7 + DF -:POINTS TO THE DATA FORMAT 
349 
350 001442 SERRTB: 
351 : 1 TEM NUMBER 
352 001442 062743 .WORD M1 
353 001444 062771 .WORD EM2 
354 001446 063025 .WORD EM3 
355 001450 063053 .WORD EMG 
356 
357 
325 .SBTTL ACT11 HOOKS 
360 RARER ARR RE ARR RERAR AERA RAE AAA ERAARRRERAEREARARR RARER EES 
1 *HOOKS REQUIRED BY ACT11 
362 001452 ssyrce. SAVE PC 
364 000046 057322 SENDAD ::1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
366 000052 i 0 :32)SET Loc. 32 TO ZERO 
367 001452 .=$SVPC zz RESTORE PC 
368 _SBTTL APT PARAMETER BLOCK 
370 { RRRRARREREERRRRR EERE EEREEREEAARERAAAAARRE REA AAERA AERA ARERR ES 
371 :Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
372 {eee 
373 001452 .$X=. SAVE CURRENT LOCATION 
374 24 .=24 * SET POWER FAIL TO POINT TO START OF PROGRAM 
375 000024 200 *:FOR APT START UP 
376 244 : POINT TO APT INDIRECT ADDRESS PNTR. 
377 000044 001452 $APTHDR ; :POINT TO APT HEADER BLOCK 
378 001452 .=. 8X “RESET LOCATION COUNTER 
379 perrereeewreceerrerrrsrrrer rrr eter 
380 “SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
381 = INTERFACE SPEC. 
383 001452 THD: 
384 001452 000000 SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
385 1454 001316 “WORD $MAIL  ;:ADDRESS OF APT MAILBOX (BITS 0-15) 
386 001456 000010 S$TSTM: .WORD 10 ::RUN TIM OF LONGEST TEST 
387 001460 SPASTM: .WORD 40 ; RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
388 001462 000000 I™: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
001464 000052 . WORD SETEND-SMAIL/ +:LENGTH MAILBOX-E TABLE (WORDS) 
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392 
393 


001466 


00 
112767 


012737 
01 


005 
012767 


012637 


005067 
132767 
001403 


001100 
001140 
001100 
057454 


001762 
000176 
000174 
000004 


177316 
000200 


MACY11 


6 
055456 
177303 
000014 
000016 
055570 
000010 
055544 
000010 
177200 
177174 


177204 
177200 
177170 


177150 
177144 


177323 
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eet 12-MAR~80 15:31 
PARAMETER BLOCK 
START: 
_SBTTL INITIALIZE THE COMMON TAGS 
::CLEAR THE COMMON TAGS (SCMTAG) AREA 
MO #SCMTAG,R6O :;FIRST LOCATION TO BE CLEARED 
CLR (R6) + ::CLEAR MEMORY LOCATION 


CMP HSWR,R6 :;DONE? 
vs F $8 BACK IF NO 
WSTA SETUP THE STACK POINTER 
js INITIALIZE A FEW NEC TOR 
#SSCOPE SFIOTVEC ‘#107 VECTOR FOR SCOPE ROUTINE 


MOV #340 aniorvEcse ; VEL 

RROR VEC” eM VECTOR FOR ERROR ROUTINE 
MOV weeG OREMTVEC? ;:LEVEL 
MOV WSTRAP ,a#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
MOV saoukon pn te LEVEL 7 FAILURE VECTOR 
MOV #340, aAPURVE C92 : LEVEL 7 


:$ ND-OF -PROGRAM COUNTER 
CLR STIMES : INITIALIZE NUMBER OF ITERATIONS 
ERROR ADDRESS 


CLR SESCAPE S3CLEAR THE ESCAPE 
MOVB _#1_, SERMAX ERROR T 
;3 INITIALIZE THE a) TRAP VECTOR. THEN LOAD LOCATION "SRTRN'’, IN 


73 THE "END-OF-PASS"" (SEOP) ROUTINE, WITH A ‘RTI’ OR ‘RTT’. 












MOV ,QUTBITVEC :3SET_|T” BIT VECTOR TO SRTRN 

mov #340, @ATBITVEC+2 52L 

MOV ARTI ,SRTRN ‘SET SRTRN TO A RTI 

MOV -#65S.AWRESVEC :: TRY TO DO AR 

CLR = = (SPJ : :DUneNY PS 

MOV  #64$,-(SP) 

RTT TRY THE R 
648: MOV ea'* -SRTRN sie 1S LEGAL—-SET SRTRN TO A RTT 
65$: ADD RTT ILLEGAL--CLEAN OFF THE STACK 
66S: MOV ame SVECS2, amresvet ;;RESTORE TRAP CATCHER 

CLR T’’ BIT SWITCH 

mov w= SLPADR 3 INITIALIZE THE LOOP ADDRESS FOR SCOPE 


SLPERR ADDRE 
RE Sul REGISTER. IF NOT FOUND OR IT IS 
FOR A SOFTWARE SWITCH REGISTER. 

SAvEC =(SP) a SAVE ERROR VECTOR 
awERRVEC 
#DSWR, SUR 
#DDISP DISPLAY 
#~-1 ,aSWR 
69$ : BRANCH IF NO TIMEOUT TRAP OCCURRED 
SWR IS NO 


7 BRANCH IF 
SISET UP FOR TRAP RETURN 


MOV 
SIZE FOR A 
7 ;EQUAL TO A *~1"" 


68$ 
67$: MOV #68$ , (SP) 


68$: MOV /sPOINT TO SOFTWARE SwR 
MOV MDISPREG,D 

69$: MOV (SP) +, SSERAVER ” S SRESTORE ERROR VECTOR 
LR SPASS :CLEAR PASS COUNT 
BITB #APTSIZE.SENVM si TEST USER SIZE UNDER APT 
BEQ 70$ “YES,USE NON-APT SWITCH 


SEQ 0025 
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012767 


0004 
112767 
000424 


001340 


177777 
057322 
002110 
000042 
177256 
177050 


000001 
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177114 


000042 


000001 


000176 


177026 


000244 


i 


2 
12-MAR-80 ut iat PAGE 10 
INITIALIZE THE COMMON T SEQ 0024 
MOV ASSWREG , SWR ;7NO,USE APT SWITCH REGISTER 


70$: 
.SBTTL TYPE PR 


OGRAM NAME 
; TYPE be NAME Ay PROGRAM IF cinee PASS 


NC FIRST TIME? 
BNE 71$ * “BRANCH IF NO 
CMP H#SENDAD ,a442 3 ;ACT<11? 
BEQ 71$ ; ;BRANCH IF YES 
TYPE 72$ ‘TYPE ASCIZ STRING 
.SBTTL GET VALUE FOR SOFTWARE sui TCH REGISTER 
TST ase WE RUNNING UNDER XXDP/ACT? 
BNE $ * BRANCH IF 
CMPB NV, #1 ARE WE RUNNING UNDER APT? 
BEQ * :BRANCH IF YE 
CMP SWR. ASWREG 13 SOF TWARE SWITCH REG SELECTED? 
BNE 74$ H IF NO 
GTSWR aa GET SOF T=-SWR SETTINGS 
738: MOVB  #1,$AUTOB ::SET AUTO-MODE INDICATOR 
71$ OVER THE ASCIZ 
53728: ASCIZ <CRLF>*CJKDCB, kbi Tica FP DIAGNOSTIC PART 1*<CRLF> 
LOOP: 
MOV #STACK, SP :SET UP STACK POINTER 
MOV #1$, 004 “SET UP FOR TIMEOUT IF NO MULTI-TESTER 
MOV #340, an6 
MOV #2,a#164000 :SET ‘'GO’’ ON MULTI-TESTEP 
MoV #6. an “RESTORE TRAP CATCHER 
1$: 
SERERERERERERRRRERRREEAAERAERAARAA AAA AAARARAREAAA AAA A LRA SS 
; TEST 1 LDFPS, STFPS AND DATA PATHS TEST 


THIS IS A TEST OF THE LDFPS (LOAD FLOATING POINT STATUS) AND STFPS 

-* (STORE FLOATING POINT STATUS) INSTRUCTIONS. A COUNT PATTERN IS GENERATED 
; AND RUN THROUGH THE FLOATING POINT STATUS REGISTER ° 

;*DMO AND SMO ARE USE 


Dd. 
de 3 THAT A MASK MUST BE USED BECAUSE SOME OF THE FPS BITS CANNOT 


T 


** 
© REEREARERRERAERARARE REAR ERERAA AAA ARAAARAAAAEAAAARRA LARA AAA A EES 
$11: SCOPE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV : INITIALIZE THE COUNT PATTERN. 
MOV fac aur PVECT “SET UP FOR UNABLE TO DECODE 
MOV RRe ‘FPP INSTRUCTION TRAP TO 244 OR 10. 
MOV GAERR ST ERRVECT 


:1F EITHER INSTRUCTION 
FAILS TO GO THROUGH THE 
CORRECT SRC OR DST MODE AN 


CJKDCB-A KEF11-A FP DIAG PART 1 
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CJKDCB.P11 


MMMIMIVMIVMIVIVIVI 
od cad cad ed ced end ed ond ed 
CONAOUS WHO 


010004 
042704 
170104 


011637 
022626 
104004 
000404 


030020 


177777 
062524 


000001 


001236 


002254 
002270 
062574 


001236 


002254 
002270 
062556 


001236 


MACY11 


000244 


000004 
000010 
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30A(1052) 12-MAR-80 15:31 
11 LDFPS, STFPS AND DATA PATHS TEST SEQ 0025 
a ‘ODD ADDRESS TRAP WILL OCCUR. 
All: MOV RO.R4 
BIC #30020,R4 
LDFPS  R4 sTEST INSTRUCTION. 
MOV #-1,R1 
Al2:  STFPS R :TEST INSTRUCTION. 
MOV #FPSPUR,@AaFPVECT “SET UP FOR UNEXPECTED TRAPS. 
MOV “MASK OFF UNSETTABLE BITS. 
BIC #30020 
MOV esta SWERRVECT 
MOV #CPTWO,a410 
CMP R4,R1 : COMPARE DATA EXPECTED WITH 
Q A2 “IF NOT EQUAL GO REPORT ERROR. 
ERROR 4 
A2: MOV #1,R0 ;NEXT PATTERN WILL BE ALL ZERO 
SOB RO.Al CREMENT COUNT PATTERN 
BR “UNTIL IT IS ZERO. 
‘UNABLE TO DECODE FPP INSTRUCTION. TRAPPED TO 244. 
AERR1: MOV (SP) ,a#$STMP2 :SAVE PC OF TRAP. 
CMP (SP)+, (SP)+ 
1$: ERROR 4 
BR 
UNABLE TO DECODE INSTRUCTION. TRAPPED TO 10. 
AESR2: cP (SP) ,#A11+2 =DID TRAP OCCUR OF FPP INSTRUCTION? 
CMP (SP) ,#A12+2 
JMP aAcPTWO : IF NOT FPP INSTRUCTION THEN 
“REPORT SPURIOUS TRAP TO 10. 
1$: MOV (SP) ,a#STMP2 sOTHERWISE REPORT IR DECODE ERROR. 
CMP (SP)+, (SP)+ 
2$: ERROR 4 
BR 
: TRAP TO 4 HANDLER: 
AERR3: CMP (SP) .WA114#2 “DID THE TRAP OCCUR ON THE 
BEQ “LDFPS INSTRUCTION? 
CMP (SP) ,#A12+2 “OR THE STFPS INSTRUCTION? 
JMP @ACPSPUR :IF NEITHER THEN REPORT 
“UNEXPECTED TRAP TO 4. 
1$: MOV (SP) -aaSTMP2 
CMP (SP) +, (SP)+ 
15$: ERROR 4 
ADONE 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 spe ese? i -80 15:31 
CJKDCB.P11_  12=-MAR-80 15:26 LDFP 
560 002434 011637 001236 2$: MOV (SP) ,a#$TMP2 
561 002440 022626 CMP (SP)+, (SP) + 
362 002442 25$: ERROR 4 
564 002444 ADONE : 
565 002444 104413 RSETUP 
566 
567 
568 
569 
570 
571 
572 
573  STEST 2 CFCC TEST 
574 
575 
576 
577 3: 
578 002 000004 TST2: SCOPE 
579 002450 104414 LPERR 
380 002452 012700 000017 MOV #17,R0 
582 0024 Bl: 
585 002456 170100 LDFPS RO 
585 B2: 
386 002460 170000 CFCC 
588 002462 013703 177776 MOV w.R3 
589 002466 042703 177760 BIC #177760,R3 
590 002472 020003 CMP RO,R3 
591 002474 001002 BNE BE 
593 002476 077011 B3: SOB RO.B1 
594 000422 BR 
596 002502 BERR: 
597 002502 170201 STFPS R17 
598 012737 002460 001236 V #B2, QASTMP2 
600 002512 020001 CMP RO.R1 
601 002514 001006 BNE BERR1 
603 002516 010337 001240 MOV R3.avSTMP3 
604 002522 010037 001242 MOV RO. aASTMPS 
605 002526 104001 1$: ERROR 1 
606 002530 000762 BR B3 
608 002532 BERRI: 
609 002532 010037 001240 V RO, a#STMP3 
610 002536 010137 001242 MOV R11. a#$STMP4 
611 002542 104001 1$: ERROR 1 
612 002544 000754 BR B3 
614 002546 BDONE : 
615 002546 104413 RSETUP 


ne 


2 
"PAGE 12 
. STFPS AND DATA PATHS TEST 


60 INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE 
; THE DESIRE TO CHANGE THE SOFT 


USER HAS EXPRESSED ane 
TUAL CONSOLE SWITCH _— (HAS 


;VIR 
‘THE USER TYPED CONTROL G?) 


ee tT TIT T Titi 17 10 t 00d 0d hh dll da lalalalalelehelaieielelaleleieleieieieieieieleieieisieisieieiele 


;* 
; *THIS IS A TEST OF THE COPY CONDITION CODES INSTRUCTION, CFCC. 


\ tibicieuninieatiiadreditieeie a saeeeeeecenebauansaneeusneueseeenseenenssese 


;SET UP THE LOOP ON ERROR ADDRESS. 


;RO CONTAINS TO TEST PATTERN. 


;LOAD THE TEST PATTERN 


;COPY CONDITION CODES. 
7SEE IF PATTERN TRANSFERED. 


7WAS FPS MODIFIED By CFCC? 


:GO INITIALIZE THE FPS AND STACK; AND 


SEQ 0026 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
~80 15:26 Te 
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PEREERERE 


oO 
Ww 
Ww 


Be 


640 


12-MAR- 


170100 


170001 
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CFCC T 


:SEE IF THE USER HAS Carey 

: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
[THE USER TYPED CONTROL G?). 


ppreeereeeererrereverrrrrrrrrrttr tt ert titi tt irr 


s*TEST 3 SETF, SETD, SETI AND SETL TEST 


THIS IS A TEST OF THE SETF, SETD, SETI AND SETL INSTRUCTIONS. 
; *EACH INSTRUCTION IS EXECUTED WITH THE FPS CONTAINING 

=*ALL ONES AND ALSO WITH THE FPS CLEAR. THE RESULT OF EACH 

:* SITUATION IS CHECK 


KED. 
:*$TEMP2 CONTAINS INSTRUCTION TRIED TO PERFORM 
:*$BDDAT CONTAINS BAD FPS CONT nan. 


. Men eeeeneeeunnbanberesneuneneeeertevnanenesanceseccererneese 


' T§T3: SCOPE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
000760 001244 MOV #760, a4STMPS 
000202 001250 (C1: MOV #202, a4STMP7 
CLR RO 
LDFPS RO =CLEAR THE FPS. 
002602 001236 V #C15,a#STMP2 
C15: SETF :TEST INSTRUCTION. 
STFPS RI :GET RESULT. 
CLR R2 
oF R21 :DID AN ERROR OCCUR? 
001126 MOV R1, A#SBDDAT :STORE BAD DATA 
ERROR 1 
1$: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
147757 C2: MOV #147757,RO | 
LDFPS RO :PUT 147757 IS FPS 
002640 001236 MOV #C25 ,a#STMP2 
C25:  SETF :CLEAR FD BIT. 
STFPS R1 :GET RESULT 
147557 MOV #147557 .R2 
CP R1,R2 :RESULT CORRECT. 
001126 MOV R1,a4$BDDAT :STORE BAD DATA 
ERROR 1 
1$: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
000203 001250 C3: MOV #203, a#STMP7 
147757 MOV #147757 ,RO 
LDFPS RO *LOAD 147757 INTO FPS. 


SEQ 0027 


i - 
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CJKDCB.P11  12-MAR-80 15:26 SETF. SETD, SETI AND SETL TEST SEQ 0028 
672 002700 012737 002706 001236 MOV #C35,a#STMP2 
673 002706 170011 C35: SETD :SETD FD BIT. 
675 002710 170201 STFPS  R1 
676 002712 012702 147757 MOV #147757,R2 
677 002716 020102 CMP R1,R2 :RESULT CORRECT? 
678 002720 001403 BEQ 1 
679 002722 010137 001126 MOV R1, a#$BDDAT :STORE BAD DATA 
om 002726 104001 ERROR 1 
682 002730 1$: 
683 002 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
684 002732 005000 C4: CLR RO 
685 002734 170100 LDFPS RO -CLEAR FPS. 
686 002736 012737 002744 001236 MOV #C45 ,aaSTMP2 : 
688 002744 170011 C45:  SETD :SET FD BIT. 
690 002746 170201 STFPS RI :GET RESULT. 
691 002750 012702 000200 MOV #200,R2 
692 002754 020102 CMP R1,R2 :RESULT CORRECT? 
693 002756 00140 BEQ 1 
694 002760 010137 001126 MOV R1,a4SBDDAT :STORE BAD DATA 
695 002764 104001 ERROR 1 | 
697 002766 1S: 
698 002766 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
699 002770 012737 000204 001250 C5: MOV #204 ,aASTMP7 
700 002776 005000 CLR RO 
702 003000 170100 LDFPS RO =CLEAR FPS 
703 003002 012737 003010 001236 MOV #C55,aaSTMP2 
705 003010 170002 C55:  ~—« SETI :CLEAR FL BIT. 
707 003012 170201 STFPS RI :GET RESULT. 
708 003014 005002 CLR R2 
709 003016 020201 CMP R2,R1 =RESULT CORRECT? 
710 003020 001403 BEQ 1$ 
711 003022 010137 001126 MOV R1,a#SBDDAT = STORE BAD DATA 
ee 003026 104001 ERROR 1 
714 003030 1$: 
715 003030 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. ‘ 
716 003032 012700 147757 C6: MOV #147757,RO 
717 003036 170100 LDFPS RO :PUT 147757 INTO FPS 
718 003040 012737 003046 001236 MOV #(65,,aa#STMP2 
720 003046 170002 C65: ~—«SETI -CLEAR FL BIT. 
722 003050 170201 STFPS RI :GET THE RESULT. 
723 003052 012702 147657 MOV #147657,R2 
724 003056 020102 CMP R1,R2 :RESULT CORRECT? 
725 003060 001403 BEQ 
726 003062 010137 001126 MOV R1, aASBDDAT :STORE BAD DATA 
727 03066 104001 FRROR 1 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
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CJKDCB.P11 


3 
oo 


SESTSSRU RA RNASS 


003070 
003070 


104414 

000 
170100 
012737 
170012 
170201 


104413 


1$: 


000205 001250 (C7: 
147757 


003114 


147757 


001126 


003152 


001126 


001236 


001236 


C75: 


C85: 


1$: 
CDONE : 


12-MAR-80 


D 3 
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15 


SETF, SETD, SETI AND SETL TEST 


LPERR 
MOV 


V 
LDFPS 
MOV 


RSE TUP 


#205 ,a#$STMP7 
#147757 ,RO 


RO 
#C75 ,aMSTMP2 


R1 
#147757 ,R2 
R1,R2 


— 


RO 
RO 
#C85 ,a#STMP2 


R1 

#100,R2 
R1,R2 

1$ 

R1 .@ASBDDAT 


;SET UP THE LOOP ON ERROR ADDRESS. 


SET FPS TO 147757. 


;SET FL BIT. 
;GET THE RESULT. 
;RESULT CORRECT? 


;STORE BAD DATA 


SET UP THE LOOP ON ERROR ADDRESS. 


:CLEAR FPS. 


:SET FL BIT. 


;RESULT CORRECT. 


:STORE BAD DATA 


:GO INITIALIZE THE FPS AND STACK; AND 
; SEE IF THE USER HAS EXPRESSED 

;THE DESIRE TO CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 


SREKKEEKEEAEREREREREARRAREERARERERRRERRARERRAREA RARE RATES 


ILLEGAL FPP OP CODES AND STST TEST 


“TEST 4 


= 
¢*THIS 1S A TEST OF THE FPP OPERATION CODES: 
170003 


+ 2 8 2 ® 


** 


= *SHOULD CAUSE A 


170077 
7; * THESE ARE ce AND (WITH INTERRUPTS ENABLED) 
~:8ALSO TESTED HERE IS THE INSTRUCTION: 


SEQ 0029 


CJKDCB-A KEF11-A FP D - PART 1 


CJKDCB.P11 


784 
785 


7 


790 
791 
792 


RoNcSseuaake 


BESRo 


RaRgRy orenence onon open 208 
— — 2 
NO OONOULWN—O 


BS2e 


12-MAR- 


022716 
001402 
000137 
022626 
170201 
022701 
001406 
012737 
010137 
104001 


012704 
170304 


022704 


15:26 


000002 


MACY11 


000004 
000244 


001256 


001240 


gs. 16 
GAL FPP OP CODES AND STST TEST 


— s 
15:31 PAGE 


STST R1 
D PUT THE FEC CODE 2 IN Ri, 


; #0P CODES IS EXECUTED. 


AFTER ANY OF THE ABOVE 


-diniiddhninectinenaetseedetsnenntatienheeaaeseananeqeqaeerenes 


a ee 
T4 
* eWHICH SHOUL 
S14: SCOPE 
LPERR 
MOV 
MOV 
MOV 
D1: CLR 
LDFPS 
CLR 
MOV 
MOV 
MOV 
De: . WOR 
D3: CFCC 
INC 
D4: INC 
ee 
1$: ERROR 
DS: CMP 
BNE 
MOV 
BR 
D6: CMP 
BNE 
BR 
D7: INC 
BR 
DERR1: CMP 
BEQ 
JMP 
1$: CMP 
STFPS 
CMP 
BEQ 
MOV 
MOV 
2$: ERROR 
3$: MOV 
D8: STST 
CMP 


#170003,R5 
#DERR2 ,a#ERRVECT 
#DERR1 ,a#FPVECT 
RO 

RO 

RS ,a#D2 

RS a#STMPS 

D2 .aASTMP2 


Re 
Re 


R1 
‘eat 


apa 
#170013,R5 
D1 


#170077 ,R5 


a4F PSPUR 

(SP)+, (SP)+ 

R1 

> ‘estan 
s100Cn) 8 peeres 
he ~o4S TMP 


#1,R4 
R4 


#2,R4 


;SET UP THE LOOP ON ERROR ADDRESS. 


INITIAL OP CODE. 


:CLEAR FPS. 
:SET UP THE ILLEGAL INSTRUCTION. 


REPORT FAILURE. DID NOT TRAP. 


; COMPUTE NEXT OP CODE 


DID TRAP OCCUR ON TEST INSTRUCTION? 


:GET THE FPS AND SEE IF IT IS 
;SET CORRECTLY. 


:GET THE FEC CODE. NOTE THAT 
:1F THE DESTINATION MODE IS 


SEQ 0030 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 yh 
12-MAR-80 15:26 


CJKDCB.P11 


001001 
000735 


OSes 


000004 
104414 
012737 


ere 
170100 
012737 


170020 
170000 


170201 
022701 
001005 


003362 001240 
001242 


003364 
062556 


001236 


003546 


040000 


003466 


140000 


000002 


000244 


001236 


12-MAR-80 


15:31 


= 
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ILLEGAL FPP OP CODES AND STST TEST 


d9 
DS 


ms, = 


4, a#$TM 
D5 


#D8+2, (SP) 
D10 
a4 CPSPUR 


(SP) ,a#STMP2 


(SP) +, (SP) + 


; 
DS. 


;REPORT STST FAILURE 


DID THE TRAP OCCUR ON THE 
iSTST INSTRUCT ION? 


3GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 

ti DESIRE TO CHANGE THE SOFTWARE 
RTUAL CONSOLE SWITCH — (HAS 
“THE USER TYPED CONTROL G?) 


sRERRARARERRAE RRA ARERE REAR E RETA RARAERAEREARAERER ERR AERA REARS ek#kzan 


BNE 

BR 
D9: 

MOV 

MOV 
1$: ERROR 
DERR2: CMP 

BEQ 

JMP 
D10: 

MOV 

CMP 
1$: ERROR 
DDONE : 

RSETUP 

:STEST 5 


a INSTRUCTION IS EXECUTED WITH FID=1. 


** 


FID, INTERRUPT DISABLE, BIT TEST 
isTHIS IS A TEST OF FPS BIT 14 (FID) OR FLOATING INTERRUPT DISABLE. 


NO INTERRUPT SHOULD 


° 
3 RREERARKRER RAKE AEA AAAEAARRARAREREKEEAEEREREEEEREKEEEREREE 


E1: 


2: 
E3: 
E4: 


EERRO: 


SCOPE 
LPERR 
MOV 


MEERR2 ,aAFPVECT 
#40000 .RO 

RO 

#E3 ,AASTMP2 


170020 


R1 
#140000 ,,R1 
EERRO 


7SET UP THE LOOP ON ERROR ADDRESS. 
:SETUP FOR THE INTERRUPT. 


sSET FID. 
sILLEGAL FPP INSTRUCTION. 


sSEE IF ERROR WAS DETECTED. 


sSEE IF FEC=2 


REPORT FPS INCORRECTLY SET. 


SEQ 0031 


G 3 
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CJKDCB=-A eer t8 FP DIAG PART 1 MACY11 30A(1052) 12-MAR- -80 8 
CJKDCB.P11 12-MAR-80 15:26 T5 FID, INTERRUPT DISABLE, BIT TEST 
896 003514 010137 001240 MOV MP3 
897 003520 012737 140000 001242 MOV #140000. aaSTMP4 
898 003526 001 ERROR 1 
a 35 22 BR EDONE 
901 003532 EERR1: sREPORT FEC NOT 2. 
902 003532 010537 001240 MOV R5,a#STMP3 
903 003536 010437 001242 MOV R4,a4STMPS 
904 003542 104001 1$: ERROR 1 
pss 003544 000414 BR E DONE 
907 3546 021627 003470 EERR2: CMP (SP) ,#ES :DID THE ILLEGAL INSTRUCTION TRAP? 
908 003552 001402 EQ 1$ 
oh 3554 00137 062524 JMP a4FPSPUR 
911 003560 1$: 
912 003560 011637 001236 MOV (SP) ,a&#STMP2 
913 003564 2626 CMP (SP) +, (SP)+ 
914 003 70201 STFPS RI 
915 003570 010137 001240 MOV R1,a4STMP5 
aig 003574 104001 2$ ERROR 1 
918 003576 EDONE : 
919 003576 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
920 ; SEE If THE USER HAS EXPRESSED 
921 >THE DESIRE TO CHANGE THE SOF TWARE 
922 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
923 * THE USER TYPED CONTROL G?). 
ss 
926 FARRAR AREER AREER ERE RRA RA AREER EERE ERA R RARER EEE ES 
oon : STEST 6 LDD AND STD, WITH SRC AND DST MODE 1, TEST 
929 :*THIS IS A TEST OF BOTH THE INSTRUCTION: 
930 LDD (RO) ACO 
931 : SAND THE INSTRUCTION: 
932 T ACO, (RO) 
933 < aMOST OF THE FAILURES ARE {SOLATED TO THE SRC OR DST FLOWS. NOTE 
934 = * THAT THE yok gare AY OF ACO HAS NOT BEEN ASSURED. THIS MEANS THAT 
935 >*IN SOME CASES IT WILL BE IMPOSSIBLE TO ISOLATE CERTAIN DATA PATTERN 
oe : sFAILURES TO EITHER THE FLOWS OR THIS ACCUMULATOR. 
938  hnamidindishidiiemnmicnineeieniadedtetetbhtbintesewhecethennis 
ain 003600 000004 TST6: SCOPE 
941 003602 Fl: 
942 003602 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
943 3604 012737 003654 001236 MOV #F 3, a#STMP2 
944 003612 005 CLR 
945 003614 170100 LDFPS RO 
946 003616 170011 SETD 
947 3620 012701 005372 MOV #FDATIO,R1 :SET UP THE LOAD DATA. 
948 003624 012702 005436 MOV #FXDATO,R2 
op 003630 012703 000010 MOV #10,R3 
951 003634 012221 Fes MOV (R2)+,(R1)+ 


SEQ 0032 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-Mar-80 15:31 
CJKDCB.P11 12=MAR=80 15:26 T6 LDD AND STD, WITH SRC AND DST MODE 1, 
952 002636 077302 S08 R3,F2 
954 003640 012700 00540 MOV #FDATI4,RO 
93 003644 012737 005072 000004 MOV or PARDO. @WERRVECT 
937 003652 005003 CLR R3 
959 003654 172410 F3: LDD (RO) ,ACO 
960 003656 005203 F4: INC R3 
36) 3660 005203 INC R3 
963 003662 020027 005402 CMP RD. AFDATIG 
964 003666 001402 BEQ F 
965 003670 000137 004236 JMP avF ERR1 
967 003674 020327 000002 FS: CMP R3,42 
968 003 001402 BEQ $ 
969 003702 000137 004334 JMP a#F ERR2 
971 003 012701 005372 1$: MOV #FDATIO,R1 
972 003712 012702 005436 MOV #FXDATO,R2 
973 003716 012703 000010 MOV #10,R3 
974 0037.2 022122 2$: CMP (R1)+, (R2)+ 
975 003724 001402 BEQ 
976 003 137 004200 JMP a#F ERRO 
7 003732 077305 3S: S08 R3,2$ 
979 003734 170201 | STFPS  R1 
980 003 022701 000200 CMP #200,R1 
981 003742 001402 BEQ F 
98 003744 137 005052 JMP Q4FERR11 
984 0037 F6: 
985 003750 104414 LPERR 
986 003752 012737 004014 001236 V #F 10, ae#STMP2 
988 003760 012703 177777 MOV #-1.R3 
989 003764 012704 000010 MOV #10,R4 
990 003 012705 005414 MOV #FDATOO,RS 
991 003774 010325 F7: MOV R3,(R5)+ 
992 003776 077402 SOB F? 
994 004000 012700 005424 MOV #F DATO4 RO 
935 004004 012737 005232 000004 MOV #FERR25S ,@#ERRVECT 
997 004012 005003 CLR R3 
999 004014 174010 F10: STD ACO, (RO) 
1000 004016 005203 F1l: INC R3 
1001 004020 005203 INC R3 
1003 004022 020027 005424 CMP RO HF DATOS 
1004 004026 001402 BEQ 
1005 004030 137 004374 JMP SAFERR3 
1007 004034 020327 000002 F12: CMP R3,42 


3 
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TEST 


;SETUP RO FOR THE LDD (RO),ACO. 
at THE SRC FLOWS FAIL THEN 
AN ODD ADDRESS MAY OCCUR. 


sWAS RO AFFECTED? 


7SEE IF THE PC WAS ADVERSELY 


SEQ 0035 


“AFFECTED DURING THE INSTRUCTION. 


MAKE SURE THE SOURCE DATA WAS 
“NOT AFFECTED. 


MAKE SURE THE FPS IS CORRECT. 


THE LOOP ON ERROR ADDRESS. 


>SET UP THE OUTPUT DATA BUFFER. 


SET UP RO FOR DST MODE 1 REG O. 
:IF THE DST FLOWS FAIL AN ODD 
SADDRESS COULD OCCUR. 


sTEST INSTRUCTION. 


:WAS RO MODIFIED? 


WAS THE PC AFFECTED CORRECTLY? 


>. 
CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12=-MAR-80 15:31 PAGE 20 
80 15:26 Té6 LDD AND 


CJKDCB.P11.  12=MAR- STD, WITH SRC AND DST MODE 1, TEST SEQ 0034 
1008 004040 00140 BEQ F135 
1009 004042 000167 000320 JMP FERRG 
1011 004046 012701 005414 F135: MOV #FDATOO,R1 
1012 004052 012702 005436 MOV #EXDATO.R2 
1014 004056 022122 CMP (R1)+,(R2)+ sSEE IF THE DATA WAS OUTPUT 
1015 001402 BEQ F :TO THE TARGET AREA CORRECTLY. 
1016 004062 137 004472 JMP aA#FERRS 
1018 066 022122 F13: CMP (R1)+,(R2)+ 
1019 004070 001402 BEQ F14 
1020 004072 000137 004472 JMP QAFERRS 
1022 004076 022122 F146: CMP (R1)+, (R2)+ 
1023 004100 001402 BEQ F1 
1024 004102 000137 004472 JMP AMF ERRS 
1026 004106 022122 E15: CMP (R1)+, (R2)+ 
1027 004110 001402 BEQ F16 
1028 004112 000137 004472 JMP aHFERRS 
1030 004116 022122 F16: CMP (R1)+, (R2)* 
1031 004120 001402 BEQ F 
1032 004122 000137 005016 JMP a#FERR10 
1034 004126 022122 E17: CMP (R1)+, (RZ) + 
1035 004130 001402 BEw F20 
1036 004132 000137 004526 JMP QHF ERR 
1038 004136 022122 F20: CMP (R1)+, (R2)+ 
1039 004140 001402 BEQ F21 
1040 004142 000514 MP FERR7 
1042 004146 022122 F21: CMP (R1)+, (R2)+ 
1043 004150 001402 BEQ F22 
1044 004152 000137 005016 JMP avFERR10 
1046 004156 005001 F22: CLR R1 
1047 004160 170201 STFPS R1 :MAKE SURE FPS IS CORRECT. 
1048 004162 022701 000200 CMP #200,R1 
1049 004166 001402 BEQ F 
1050 004170 000137 005052 - MP QAFERR11 
1051 004174 000137 005456 F23:  JMP av DONE 
1053 004200 FERRO: :SOURCE DATA AFFECTED BY 
1054 004200 012737 005436 001240 MOV #FXDATO, aS TMP3 “THE LDD ~NSTRUCTION. 
1055 004206 012737 005450 001242 MOV #FXDATO+12,aQ4STMP4 
1056 004214 012737 005372 001244 MOV #FEDATIO, a&STMPS 
1057 004222 012737 005404 001246 MOV #FDATIO+12,a"STMP6 
1058 004230 104001 1$: ERROR 1 
1059 004232 000137 005456 JMP ae DONE 
1061 006236 012737 005402 001242 FERRI: MOV #FEDATI4,aa$TMP4 :FSRC FLOWS FAILURE. 
1 004244 MOV 


062 010037 001240 RO av$ TMP 
1063 004250 012737 000762 001244 MOV #762, OAS TMPS 


3 
CJKDCB-A eerty=S FP DIAG PART 1 MACY11 ahaa ma 15:31 ’ PAGE 21 


CJKDCB.P11 12=MAR-80 15:26 T6 AND STD. WITH SRC AND DST MODE 1, TEST SEQ 0035 
1064 004256 012737 000321 001250 MOV #321, a#STMP7 

1066 004264 022700 005372 CMP #FDATIO,RO -FSRC MODE 4? 
1067 004270 001004 BNE 

1068 904972 012737 000324 001246 MOV #324, a#STMPS 

1069 004 000412 BR 4$ 

1071 004302 022700 005412 1$: CMP #FDATI4+10,RO :FSRC MODF 2? 
1072 004306 001004 BNE 

1073 004310 012737 000322 001246 MOV #322, a#STMP6 

107% 004316 000403 BR 4$ 

1076 004320 2$: 

1077 004320 3$: 

1078 004320 104001 ERROR 1 -RO WAS MODIFED, LOD 
1079 004322 000137 005456 JMP a4F DONE 

1080 004326 4$: 

1081 004326 S$: 

1082 004326 104001 ERROR 1 =RO WAS MODIFED, LDD 
1083 004330 000137 005456 JMP aa DONE 

1085 

1086 004334 012701 003656 FERR2: MOV #F4.RI :THE PC WAS INCORRECTLY AFFECTED 
1087 “DURING THE INSTRUCTION. 
1088 004340 010137 001242 FER2: MOV R1,aeSTMPG 

1089 004 162701 000004 SUB #4,R1 

1090 004350 ASL R3 

1091 004352 060301 ADD R3,R1 

1092 004354 010137 001240 MOV R1.aeSTMPS 

1093 004360 104001 18: ERROR 1 

1034 004362 000137 005456 JMP avF DONE 

1 004366 012701 004016 FERR4: MOV #E11.R1 

1097 004372 000762 BR FER2 

1099 004374 012737 005424 001242 FERR3: MOV #F DATOS ,a#STMPS :FAILURE IN THE FDST FLOWS. 
1100 010037 001240 MOV RO TMPS 

1101 004406 012737 000527 001244 MOV 3 -QaSTMPS 

1108 004414 012737 000641 001250 MOV #641 .awSTMP7 

1104 004422 022700 005414 CMP #FDATOO,RO :DST MODE 4? 
1105 004426 001004 BNE 

1106 004430 012737 000644 001246 MOV #646, aASTMPC 

1107 004436 000412 BR 4$ 

1109 004440 022700 005434 1$: CMP #FDATO4+10,RO :DST MODE 2? 
1110 004444 001004 BNE 

1111 004446 012737 000642 001246 MOV #642, a#STMPC 

111 004454 900403 BR 4$ 

1114 004456 2s: 

117 004456 104001 3$: ERROR 1 :RO WAS MODIFIED, STD 
1116 004460 000137 005456 JMP aaF DONE 

1118 004464 4$: 

1119 004464 104001 5$: ERROR 1 :RO WAS MODIFIED, STD 


K 3 
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CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12 
CJKDCB.P11.  12=MAR-80 15:26 16 LDD AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0036 
1120 

12} 004466 000137 005456 JMP a4 DONE 

1123 004472 FERRS: | :FAILURE OF STD. 

1124 004472 010037 001240 MOV RO, av$T 

1125 004476 012737 005414 0012 MOV #F DATOO ,aa$TMP4 

1126 004504 012737 005432 001244 MOV #FDATO7,a#$TMP5 

1127 004512 012737 005436 001246 MOV #FXDATO,a#$STMP6 

1128 004520 104003 1$: ERROR 3 :QUTPUT BAD, STD 

1129 004522 000137 005456 JMP WF DONE 

1131 004526 012701 005426 FERR6: MOV #FEDATOS,R1 -DID (BUT GR7) FAIL IN THE FDST 
1132 004532 012702 177777 MOV #-1,R2 FLOWS? 

1133 004536 012703 000003 MOV #3,R3 

1134 004542 020221 1$: CMP R2.(R1)+ 

1135 004544 001017 BNE 

1136 004546 077303 S08 R3,1$ 

1138 sREPORT FAILURE OF (BUT GR7) IN 
1139 004550 010037 001240 MOV RO. avSTMP3 “THE FDST FLOWS. 

1140 004554 012737 000412 001244 MOV #612, a4STMP5S 

1141 004562 012737 000147 001246 MOV #147, aNSTMP6 

1142 004570 012737 000145 001250 MOV #145, aeSTMP7 

1143 004576 104001 2$: ERROR 1 

1144 004600 000137 005456 JMP avr DONE 

1146 012701 005426 S$: MOV #FDATOS RI :DID (BUT GR7) FAIL IN THE SRC FLOWS? 
1147 004610 012703 000003 MOV #3,R3 

1148 004614 005721 63: TST (Ri)+ 

1149 004616 001402 BEQ 7$ 

1150 004620 000137 005016 JMP asFERR10 

Hei 004624 077305 73: soB R3,6$ 

1153 :REPORT FAILURE OF (BUT GR7) IN 
1154 004626 010037 001240 MOV RO. avSTMP3 *THE FSRC FLOWS. 

1155 004632 012737 000207 001244 MOV #207 ,akSTMPS 

1156 004640 012737 000176 001246 MOV #176, aASTMPO 

1157 004646 012737 000174 001250 MOV #176 ,aaSTMP? 

1159 004654 104001 10$: ERROR 1 

1160 004656 000137 005456 JMP af DONE 

1162 004662 012701 005430 FERR7: MOV AFDATO6,R1 :DID (BUT FD) FAIL IN THE FDST FLOWS? 
1163 004666 012702 177777 MOV #-1,R2 

1164 004672 012703 000002 MOV #2,R3 

1165 004676 020221 1$: CMP R2.(R1)+ 

1166 004700 001017 BNE 

1167 004702 077303 S08 R3,1$ 

1169 :REPORT FAILURE OF (BUT FD) IN THE 
1170 004704 010037 001240 MOV RO, avSTMP3 “FDST FLOWS. 

1171 004710 012737 000707 001244 MOV #707 ,aaSTMPS 

1172 004716 012737 000244 001246 MOV #244 .akSIMP6 

1173 004724 012737 000245 001250 MOV #245, ahSIMP7 

1174 004732 2$: ERROR 1 

1175 004734 000137 005456 JMP awF DONE 
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CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR 
CJKDCB.P11  12=MAR-80 15:26 16 LDD AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0037 
1176 

1177 004740 012701 005430 S$: MOV #FDATO6,R1 :DID (BUT FD) FAIL IN THE FSRC FLOWS? 
1178 004744 012703 000002 MOV #2,R3 

1179 004750 005721 6S: TST (R1)+ 

1180 004752 001402 BEQ 7$ 

1181 004754 000137 005016 JMP avFERR10 

1182 004760 077305 7$: SOB R3,6$ 

1184 sREPORT FAILURE OF (BUT FD) IN THE 
1185 004762 010037 001240 MOV RO, a#STMP3 “FSRC FLOWS. 

1186 004766 012737 000441 001244 MOV #441, a#STMPS 

1187 004774 012737 000076 001246 MOV #76, @ASTMP 

1188 005002 012737 000077 001290’ MOV #77 ,aXSTMP7 

1189 005010 104003 10$: ERROR 3 ‘BAD DATA 

1190 005012 000137 005456 JMP av DONE 

1192 005016 FERR10: :REPORT DATA ERROR. 

1193 005016 010037 001240 MOV RO, a#STMP3 

1194 005022 012737 005424 001242 MOV #F DATOS ,@ASTMPS 

1195 005030 012737 005432 001244 MOV #F DATO7 ,a#$TMPS 

1196 005036 012737 005446 001246 MOV #F XDAT4 , aASTMPG 

1197 005044 104001 1$: ERROR 1 

1198 005046 000137 005456 JMP WF DONE 

1200 005052 FERR11: *REPORT BAD FPS. 

1201 005052 010137 001240 MOV R1,a"STMP3 

1202 005056 012737 000200 001242 MOV #200, a#STMP4 

1203 005064 104001 18: ERROR 1 

1204 005066 000137 005456 JMP auf DONE 

1206 005072 012737 062735 001264 FERR20: MOV #NULL , @#STMPT5 : THE EXECUTION OF THE LDD 
1207 005100 005037 001252 CLR avSTMP10 “CAUSED A TRAP TO 4, BECAUSE 
1208 005104 011637 001236 MOV (SP) ,awSTMP2 “A FSRC FLOW FAILURE RESULTED 
1209 005110 012737 005402 001240 MOV #EDATI4G ,a#SIMP3 > IN AN ODD ADDRESS. 

1210 005116 012737 000321 001250 MOV #321. aeSTMP7 

121 ! 005124 012737 000762 001244 MOV #762 ,akSTMPS 

1213 005132 021627 003660 CMP (SP) ,#F4+2 :SEE If FSRC MODE 6 OR 7 WAS 
121% 005136 001424 BEQ FERR21 *EXECUTED. 

1216 005140 020027 005400 CMP RO, #FDATI3 :FSRC MODE 5? 

1217 005144 001006 BNE 2$ 

1219 :REPORT FSRC FLOW FAILURE TO 
1220 005146 012737 000325 001246 MOV #325 ,a#STMP6 “MODE 5. 

1221 005154 022626 CMP (SP)+, (SP)+ 

1222 005156 104001 1$: ERROR 1 

1228 005160 536 BR F DONE 

1225 005162 27 005404 2$: CMP RO. #FDATIS :FSRC MODE 3? 

1226 005166 001402 BEO 

1287 005170 137 062556 JMP a#CPSPUR 

1229 005174 3$: :REPORT FSRC FLOW FAILURE TO 
1230 005174 012737 000323 001246 MOV #323, aeSTMP6 “MODE 3. 

1231 005202 022626 CMP (SP) +, (SP)+ 


3 
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CJKDCB.P11 12=MAR-80 15:26 16 D AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0038 
1232 005204 104001 4$: ERROR 1 

1233 005206 000523 BR F DONE 

1235 005210 022626 FERR21: CMP (SP)+, (SP) + | sREPORT FSRC FLOW FAILURE TO 

12% “MODE 6 OR MODE 7. 

1237 005212 012737 000326 001246 MOV #326, a#STMP6 

1238 005220 012737 000327 001252 MOV #327 .a#$STMP10 

1239 005226 104001 1$: ERROR 1 

1240 005230 000512 BR F DONE 

1e4e 005232 012737 062735 001264 FERR25: MOV #NULL , @4'STMP15 :THE EXECUTION OF THE STD INSTRUCTION 
1243 005240 005037 001252 CLR ayvSTMP10 “TRAPPED TO 4, BECAUSE A FAILURE 
1244 005244 012737 005424 001240 MOV HF DATO4 ,@#STMP3 “IN THE FDST FLOWS RESULTED 

1245 005252 011637 001236 MOV (SP) ,aa#$STMP2 7 IN AN ODD ADDRESS. 

1246 005256 012737 000527 001244 MOV #527 .a#STMPS 

1267 005264 012737 000641 001250 MOV #641, aaSTMP7 

1249 005272 021627 004016 CMP (SP) ,#F10+2 :FLOW FAILURE TO FDST MODE 6 OR 7? 
1250 005276 001424 BEQ FERR26 

1252 005300 020027 005422 CMP RO. AFDATO3 :DID FDST FLOW FAIL TO MODE 5? 
1255 005304 001006 BNE 2$ 

1255 :REPORT FLOW FAILURE TO FDST 
1256 005306 012737 000645 001246 MOV #645 ,aASTMP6 “MODE 5. 

1257 005314 022626 CMP (SP)+, (SP)+ 

1258 005316 104001 1$: ERROR 1 

1259 005320 000456 BR F DONE 

1261 005322 020027 005426 2$: CMP RO. AFDATOS :DID FDST FLOW FAIL TO MODE 3? 
1262 005326 001402 BEQ 

1263 005330 000137 062556 JMP aNCPSPUR ‘ 

1265 005334 3$: :REPORT FDST FLOW FAILED TO MODE 3. 
1266 005324 012737 000643 001246 MOV #663, aASTMPC 

1267 005342 022626 CMP (SP)+,(SP)+ 

1268 005344 104001 4$: ERROR 1 

1269 005346 000443 BR F DONE 

1271 005350 FERR26: :REPORT FDST FLOW FAILURE TO MODE 
1272 005350 012737 000646 001246 MOV #646, aASTMP 

1273 005356 012737 000647 001252 MOV #647 .ASTMP10 

1274 005364 022626 CMP (SP)+, (SP)+ 

1275 005366 104001 1$: ERROR 1 

1276 005370 000432 BR F DONE 

1278 005372 177777 FDATIO: -1 

1279 005374 177777 FDATI1: <1 

1280 005376 177777 FDATI2: -1 

1281 005400 177777 FDATI3: -1 

1282 005402 177777 FDATI4: <1 

1283 005404 177777 FDATI5: -1 

1284 005406 177777 FDATI6: -1 

1285 0 177777 FDATI7: 1 

1286 005412 177777 @] 

1287 005414 177777 FDATOO: -1 


N 
CUKDCB-A KEF11-A FP DIAG PART 1 MACY11 SS? of toe sts 15:31 PAGE 25 
TEST SEQ 0059 


CJKDCB.P11 12=MAR~80 15:26 T6 D AND STD, WITH SRC AND DST MODE 1, 
1288 005416 177777 FDATO1: =-1 
1289 005420 177777 FDATO2: =1 


1290 005422 177777 FDATOS: <1 
1291 005424 177777 FDATO4: =1 











j 
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CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12 
CJKDCB.P11 12-MAR-80 15:26 16 LDD AND STD, WITH SRC AND DST MODE 1, TEST SEQ 0040 
1292 005426 177777 FDATOS: -1 
1293 005430 177777 FDATO6: -1 
1294 005432 177777 FDATO7: -1 
13, GER tte : 
1 177777 FXDATO: -1 
1297 005440 177777 FXDAT1: =1 
1 005442 177777 FXDAT2: -1 
1 005444 1777 FXDAT3: -1 
1 005446 052525 FXDAT4: 052525 
1301 005450 031463 FXDATS: 031463 
1302 005452 007417 FXDAT6: 007417 
1305 005454 000477 FXDAT7: 000477 
1305 
1306 005456 F DONE : 
1307 005456 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
1308 “SEE IF THE USER HAS EXPRESSED 
1309 “THE DESIRE TO CHANGE THE SOFTWARE 
1310 “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
1311 “THE USER TYPED CONTROL G?). 
1318 
1314 SOIR RIOR TORR TOR TTT RR TTI TTR IT IIIA IR AREER EE EEE EER ER RR ERE RE 
1313 “TEST 7 FSRC MODE 0 TEST 
- 
1312 **THIS IS A TEST OF FSRC MODE ZERO USING THE LDD AND LDF INSTRUCTIONS. 
** 
1319 SIGIR EIEIO ISIS ICI SISISISIOIOIOIIOIIOII IIIT IIIS IIIT 
1320 005460 000004 TST7: SCOPE 
1321 005462 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
13235 005464 I1: 
1324 005464 170011 SETD :SET FD. 
1325 005466 012700 006274 MOV #IDATIO,RO 
1326 005472 012701 006244 MOV #IPAT10,R1 
1327 005476 012702 000004 MOV #4 ,R2 
1328 005502 012120 12: MOV (R1)+, (RO)+ :SET UP THE INPUT DATA BUFFER. 
1329 005504 077202 SOB R2,12 | 
1331 005506 012 006274 MOV #IDATIO,RO =LOAD AC1 ' 
133¢ 005512 172510 LDD = (RO) , ACT | 
1334 005514 012700 006254 MOV #IPAT20,RO :LOAD ACO 
1335 5520 172410 LDD (RO) ,ACO 
1337 005522 012701 000001 MOV #1,R1 -IN CASE THE FSRC FLOWS FAIL 
1338 526 012737 4 000004 MOV #IERRO, @#ERRVECT “AN ODD ADDRESS TRAP TO 4 MAY OCCUR. 
1339 005534 012737 005542 001236 MOV #13, aNSTMP2 
134C 542 172401 13: LDD AC1,ACO : TEST INSTRUCTION. 
1341 544 24 14: NOP 
1342 005546 000240 15: NOP 
1344 005550 012700 006264 MOV #IDATOO,RO 
1345 005554 174010 STD ACO, (ROS -GET ACO, THE RESULTS. 
1347 


005556 012700 006264 MOV #IDATOO,RO :SEE IF DATA IS CORRECT. 


a - 
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012700 
172510 


012700 
172410 


012701 
012737 
170001 
172401 
000240 
000240 


006274 
000004 
006270 
900002 


006270 
000002 
177777 
006126 


006146 


006244 


006264 


001236 


[AG PART 1 MACY11 30A(1052) 
15:26 17 


16: 


2$: 


110: 
1106: 


1105: 


~s 
12=MAR-80 15:31 PAGE 27 
FSRC MODE O TEST 
MOV #IDATIO,R1 
MOV #4.R 
CMP (RO) +, (R1)+ 
BEOQ 1105 
MOV #IDATO2,RO :SEE IF (BUT FD) FAILED. 
MOV #2,R2 
TST (RO) + 
BEQ 110 
MOV #IDATO2,RO 
MOV #2,R2 
CMP #-1, (RO) + 
BEQ $ 
JMP AFIERR1 
SOB 2,1$ 
BR 1106 
SOB R2,17 
MP ATERR2 
S08 R2,16 


:NOW TEST THE LOAD INSTRUCTION WITH FSRC MODE ZERO AND FD CLEAR. 


]11: 


I12: 


113: 


a 
and end aan 
ans 


117: 


;SET UP THE LOOP ON ERROR ADDRESS. 


#IPAT10,RO 

#IDATIO.R1 

#4 R2 

(RO) +, (R1)+ 
R2,113 


#IDATIO,RO 
(RO) ,ACi 


#IPAT20,RO 
(RO) ,ACO 


SET UP ACI 


:SET UP ACO 
#1,R1 

#114, aaSTMP2 

sCLEAR FD. 


AC1,ACO 3; TEST INSTRUCTION. 


RO sSEE IF FPS IS STILL CLEAR. 


fe 
AA IERRS 
;RESET TO DOUBLE MODE. 


#IDATOO,RO 


SEQ 0041 


D 4 
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CJKDCB.P11  12=MAR-80 15:26 SRC MODE 0 T 

1404 005752 174010 STD ACO, (RO) -GET ACO 

1406 005754 01 737 177777 006300 MOV #-1,a#IDATI2 

1407 005762 012737 177777 006302 MOV #-1 a#IDATI3 

1408 005770 012700 006264 MOV PIDATOO, RO 

1409 905774 012701 006274 MOV #IDATIO.R1 

1410 006000 012702 000004 MOV #4.R 

1411 006004 022021 120: CMP (RO)+, (R1)+ :SEE IF ACO WAS CORRECT. 
1412 006006 001414 BEQ 123 

1414 006010 023737 006270 006250 CMP Q#IDATO2,a#IPAT12 :DID (BUT FD) FAIL? 
1415 006016 001402 BEQ 122 

1416 006020 000137 006126 121:  JMP a#IERR1 

1417 006024 023737 006272 006252 122: CMP a#IDATO3, a#1PAT13 

1418 006032 001372 BNE 121 

1619 006034 000137 006174 JMP AA IERRG 

1421 006040 077217 123: S0B R2,120 

1423 006042 000520 BR IDONE :NO ERRORS. 

1425 :IF AN ODD ADDRESS TRAP OCCURS COME HERE TO ANALYZE THE ESRC FAILURE. 
1426 006044 022716 005544 IERRO: CMP #14, (SP) “MAKE SURE THE TRAP OCCURRED 
1427 006050 001413 BEQ 1$ “ON THE RE STRUCTION BEING TESTED. 
1428 006052 022716 005546 CMP #15, (SP) 

1429 006056 001410 BEQ 

1430 006060 022716 005724 CMP #115, (SP) 

1431 006064 001405 BEQ 

1432 006066 022716 005726 CMP #116, (SP) 

1433 006072 001402 BEQ 

1634 006074 000137 062556 IMP @*CPSPUR 

1436 006100 011637 001236 1$: MOV (SP) ,a#STMP2 =REPORT FAILURE. 
1437 006104 012737 000627 001240 MOV #627 ,aASTMPS 

1438 006112 012737 000320 001242 MOV #320 ,aaSTMPS 

1439 006120 022626 CMP (SP)+, (SP)+ 

1440 006122 104001 2s: ERROR 1 

1461 006124 000467 BR IDONE 

1443 =REPORT DATA ERROR. 

1444 006126 IERR1: 

1445 006126 012737 006274 001242 MOV #IDATIO, a#STMP4 

1446 006134 012737 006264 001244 MOV #IDATOO.a#$STMP5 

1447 006142 104004 1$: ERROR 4 

1448 006144 000457 BR IDONE 

1450 :REPORT FAILURE OF (BUT FD 

1451 006146 012737 000153 001244 JIERR2: MOV #153, DN Shes 

1452 006154 012737 000434 001246 MOV #634 .a#STMPG 

1453 006162 012737 000435 001250 MOV #435 , ASTMP7 

1454 006170 IERR25: 

1455 006170 104001 1$: ERROR 1 

1456 006172 4 IDONE 

1457 006174 012737 000153 001244 IERR4: MOV #153, ans TMP5 

1458 006202 012737 000435 001246 MOV 4435 .aaSTMP 

1459 006210 012737 000434 001250 MOV #434. aM$T IMP? 


E 4 
CUKDCB=A KEF11-A FP DIAG, PART 1 MACY11 30A(1052) ol2 tunes 15: :31 PAGE 29 | 
CJKDCB.P11 12=MAR-80 15:26 € MODE 0 TEST SEQ 0043 | 


1460 006216 000764 BR TERR25 | 
146 -REPORT INCORRECT FPS AFTER LOAD INSTRUCTION. 

1463 0062 IERR3: 

1 006220 012737 005722 001236 MOV #114, a#STMP2 

1465 006226 010037 MOV RO, aSTMP3 

1466 006232 012737 000004 001242 MOV #4 DASTMPS 

1467 006240 104001 1$: ERROR 1 

1468 006242 000420 BR IDONE 

1469 

1470 

1471 006244 000000 IPAT10: 0 

1472 006246 170360 IPAT11: 170360 

1473 006250 016161 IPAT12: 016161 

167% 006252 052525 IPAT13: 052525 

1476 006254 177777 IPAT20: =1 

1477 006256 177777 IPATO1: -1 

1478 17777 IPAT22: 1 

1479 006262 177777 IPAT23: -1 

1481 006264 000000 IDATOO: 0 

1 000000 IDATO1: 0 

1483 006270 000000 IDATO2: 0 

1484 006272 000000 IDATO3: 0 

1486 006274 000000 IDATIO: 0 

1487 006276 000000 IDATI1: 0 

1488 006300 000000 IDATI2: 0 

1489 006302 000000 IDATI3: 0 

1491 006304 IDONE : 

1492 006304 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
1493 “SEE IF THE USER HAS EXPRESSED 

149% ;THE DESIRE TO CHANGE THE SOF TWARE 
1495 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
149% “THE USER TYPED CONTROL G?). 

1497 

1498 

1499 EERE REAR EERE AEERERERAEKEEEAREREREEEEREEEEEEEE 
1500 : TEST 10 FDST MODE O TEST 

1502 jsTHIS IS A TEST OF THE STORE INSTRUCTIONS, STD AND STF, WITH FDST MODE 0. 
1506 cakibestimanacibadtactiabebeakcdcinn bugiugquntsuadeteadenweseenens 
1505 006306 000004 TST10: SCOPE 

1506 006310 Tl: 

1507 006310 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1508 ,006312 170011 SETD =SET FD 

1509 "006314 012700 007036 MOV #TPAT10.RO 

1510 006 012701 007066 MOV #TDATIO.R1 

1511 006324 012702 000004 MOV #4 .R2 

1512 006330 012021 12: MOV (RO) +, (R1)+ :SET UP THE INPUT DATA BUFFER. 
1515 006332 077202 SOB R2,T2 

1515 006334 012700 007066 MOV #TDATIO.RO :LOAD ACO 
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PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 30 
15:26 T10 FDST MODE 0 TEST 
LDD (RO) ACO 
007046 MOV #TPAT20.RO 
LDD (RO) .AC1 
000001 MOV #1,R1 
006644 000004 MOV #TERRO, a#ERRVECT 
006370 001236 MOV #13, aa$TMP2 
T3: STD ACO,AC1 
T4: NOP 
TS: NOP 
007056 MOV #TDATOO,RO 
STD AC1, (RO) 
007056 MOV #TDATOO,R3 
007066 MOV ATDATIO,RS 
MOV #4,R5 
T6: CMP (R3)+, (RG) + 
BEQ 7105 
007062 MOV #TDATO2.R3 
000002 MOV #2,R5 
17: TST (R3)+ 
BEQ T10 
006726 JMP @sTERR1 
T10: SOB R5,1T7 
006746 JMP aA TERR2 
T1105: SOB R5,16 
:NOW TEST THE STF ACO,AC1 INSTRUCTION. 
TTT: 
LPERR :SET UP 
007036 T12: MOV #TPAT10,RO 
007066 MOV #TDATIO,R1 
000004 MOV #4 ,R2 
113: MOV (RO) +, (R1)+ 
SOB R2,113 
007066 MOV #TDATIO,RO 
LDD (RO) ,ACO 
007046 MOV #TPAT20,RO 
LOD (RO) ,ACi 
000001 MOV #1.R1 
006526 001236 MOV AT14, a#STMP2 
114: STF ACO,AC1 
115: NOP 
716: NOP 
CLR RO 


;LOAD AC1 


;1F THE (BUT FDST) FORK FAILS 


;AN ODD ADDRESS TRAP COULD RESULT. 


:GET THE DATA. 
-SEE IF THE DATA IS CORRECT. 


;DID (BUT FD) FAIL? 


THE LOOP ON ERROR ADDRESS. 
7SET UP THE INPUT DATA BUFFER. 


SET UP ACO 


SET UP AC1 


:CLEAR FD 


SEQ 0044 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 304(1052) 12=MAR-80 Bre 
CJKDCB.P11 12=MAR=80 15:26 T10 DST MODE 0 TEST 

1572 006536 70200 STFPS RO -SEE IF FPS IS CLEAR. 
1573 006540 022700 000010 CMP #10,RO 

1574 006544 001401 BEQ 117 

1325 006546 521 BR TERR3 

1577 006550 T17: 

1378 006550 170011 SETD :SET FD. 

1580 006552 012700 007056 MOV #TDATOO,RO 

138) 006556 174110 STD AC1, (RO) :PICK UP AC1. 

1583 

1584 006560 012737 177777 007072 MOV #-1 ,a#TDATI2 

1585 006 012737 177777 007074 MOV #-1 a#TDATI3 

1586 006574 012703 007056 MOV #TDATOO,R3 

1587 12704 007066 MOV ATDATIO.RG 

1588 012705 MOV #4,R5 

1589 006610 022324 T20: CMP (RSs, (RG) + :wWAS THE DATA TRANSFERRED CORRECTLY? 
1590 006612 001412 BEQ 123 

1592 006614 023737 007062 007042 CMP QATDATO2, a#TPATI2 -DID (BUT FD) FAIL. 
1593 006622 001401 BEQ T22 

159% 006624 000440 121: BR TERR1 

1595 006626 023737 007064 007044 122: CMP @ATDATO3, a#TPAT 13 

1596 006634 001373 BNE T21 

1597 006636 000456 BR TERR 

1599 006640 077515 123: SOB R5,T20 

1600 006642 000515 BR TDONE 

re 

1603 : TRAP HERE THROUGH VECTOR 4 IF AN ODD ADDRESS OCCURS. 

1604 022716 006372 TERRO: CMP #14, (SP) *MAKE SURE THE TRAP WAS ON 
1605 006650 001413 BEQ “AN INSTRUCTION BEING TESTED. 
1606 006652 022716 006374 CMP #15, (SP) 

1607 006656 001410 BEQ 

1608 006660 022716 006530 CMP #715, (SP) 

1609 006664 00140 BEQ 1$ 

1610 006666 022716 006532 CMP #716, (SP) 

1611 006672 00140 BEQ 1$ 

1612 006674 137 062556 JMP a*CPSPUR 

1614 006700 011637 001236 1$: MOV (SP) ,aaSTMP2 

1615 006704 022626 CMP (SP)+, (SP)+ 

1616 006 012737 000527 001240 MOV #527, ars TMs 

1617 006714 012737 000640 001242 MOV #640, a4#STMP 

1618 006722 104001 2$: ERROR 1 

1619 006724 TDONE 

1621 =REPORT DATA FAILURE. 

1622 006726 TERR1: 

1623 006726 012737 007066 001242 MOV #TDATIO, a#$TMP4 

1624 006 012737 007056 001244 MOV #TDATOO.aa$TMP5 

1625 006742 104001 1$: ERROR 1 

1626 006744 000454 BR TDONE 
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alt eee -80 15:31 
T MODE O TEST 
sREPORT FAILURE OF (BUT FD). 
TERR2: MOV #160, a#$TMP6 
MOV #161, " a4STMP7 
TERR25: MOV #640. aaSTMPS 
1$: ERROR 12 
BR TRONE 
TERR4: MOV #161,a4STMP6 
MOV #160 " AS TMP7 
BR TERR RR25 
iat. INCORRECT FPS AFTER STORE INSTRUCTION. 
MOV #715, a4STMP2 
MOV RO, a¥STMPS 
MOV #10, aASTMPG 
1$: ERROR 1 
TDONE 
TPAT10: 0 
TPAT11: 170360 
TPAT12: 016161 
TPAT13: 052525 
TPAT20: -1 
TPAT21: -1 
TPAT22: -1 
TPAT23: -1 
TDATOO: O 
TDATO1: O 
TDATO2: 0 
TDATOS: O 
TDATIO: 0 
TDATI1: O 
TDATI2: 0 
TDATI3: 0 
TDONE : 
RSETUP [2 INITIALIZE THE FPS AND STACK: AND 
F THE USER HAS EXPRESSED 
*THE DESIRE TO CHANGE THE SOFTWARE 
“VIRTUAL CONSOLE SWITCH REGISTER (HAS 
= THE USER TYPED CONTROL G?). 
SAAR R ERRATA EA ER ARE RARER AAA A AAA RAR RA LARS RASS 
:*TEST 17 ACCUMULATORS DATA PATTERNS TEST 


«THIS IS A TEST OF ins FLOATING POINT PROCESSOR ACCUMULATORS. 
=~ TTESY Par IS TESTED IN TWO WAYS: 


| 


T PATTERN GENERATED BY FLOATING A ONE ACROSS 
A FIELD OF ZEROES. 
2 Hg i PATTERN GENERATED BY FLOATING A ZERO ACROSS 
FIELD OF ONES. 


SEQ 0046 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12=MAR-80 15:31 | BAGE 33 
CJKDCB.P11 12=MAR=80 15:26 ACCUMULATORS DATA PATTERNS TEST 
1684 : EACH OF ACCUMULATORS ACO THROUGH ACS IS TESTED. 
1685 RE RRARERE ARATE AERA AREER AREER ERE RTE REE 
1686 007100 000004 S111: SCOPE 
1687 007102 170011 SETD sSET FD. 
1688 :TEST ACCUMULATOR 0 WITH FLOATING ONE 
1689 007104 012737 007134 001236 MOV #61, a#STMP2 
90 007112 01 011002 MOV #GPATOO,RO 
1691 007116 012701 011042 MOV #GDATOO,R1 
1692 007122 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1693 007124 004737 010650 JSR PC ,a#GSE TUP *LOAD TEST PATTERN. 
1694 007130 012703 000102 MOV #162,R3 
1695 007134 Gi: 
169% 007134 172410 LDD (RO) ACO 
1697 007136 174000 STD ACO,ACO 
1698 007140 172400 LDD ACO.ACO :STORE THE TEST PATTERN. 
1699 007142 174011 STD ACO, (R1) 
1700 007144 004737 010746 JSR PC, aaGCMP :COMPARE THE DATA READ WITH 
1701 “THAT WHICH WAS WRITTEN. 
1702 S50 005737 010776 TST @AGFLAG1 
1703 007154 001 BNE G2 
1704 7156 005137 010776 COM O*GFLAG1 
1705 007162 000261 SEC 
1706 007164 000401 BR G3 
1707 007166 000241 G2: CLC 
1708 007170 006160 000006 G3: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
1709 007174 006160 000004 ROL 4(RO) 
1710 007200 0061 000002 ROL 2(R0) 
1711 007204 006110 ROL (RO) 
172 007206 004737 010726 JSR PC ,QAGRESET :RESET DEFAULT PATTERN IN OUTPUT 
1716 007212 077330 S08 R3,G1 
1716 -TEST ACCUMULATOR 0 WITH FLOATING ZERO 
1717 007214 012737 007244 001236 MOV TMP2 
1718 007222 012700 011012 MOV #GPAT10,RO 
1719 007226 012701 011042 MOV #GDATOO,R1 
1720 007232 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1721 007234 004737 010650 JSR PC peer LOAD OOEST PATTERN. 
1722 007240 012703 000102 MOV #102 
1723 007244 G4: 
1724 007244 172410 LDD (RO) ,ACO 
1725 007246 174000 STD ACO,AC 
1726 2400 LDD ACO,ACO :STORE THE TEST PATTERN. 
1727 007252 174011 STD ACO, (R1) 
1728 010746 JSR PC, arGCMP :COMPARE THE DATA READ WITH 
1729 *THAT WHICH WAS WRITTEN. 
1730 007260 005737 010776 TST @4GFLAG1 
1731 007264 001004 BNE G5 
1732 007266 005137 010776 COM @AGFLAG1 
1733 7272 000241 CLC 
1734 007274 000401 BR G6 
1735 007276 000261 GS: SEC 
173% 007300 006160 000006 G6: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
1737 007304 006160 000004 ROL 4(RO) 
1738 007310 006160 000002 ROL 2(RO) 
1739 007314 006110 ROL (RO) 


5% 

CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 34 
CJKDCB.P11  12=MAR-80 15:26 T11 ACCUMULATORS DATA PATTERNS TEST SEQ 0048 
1740 007316 004737 010726 JSR PC, @#GRESET ;RESET DEFAULT PATTERN IN OUTPUT 
ge: 007322 077330 SOB R3,64 

1744 -TEST ACCUMULATOR 1 WITH FLOATING ONE 

1745 007324 012737 007354 001236 MOV #G7,aASTMP2 

1746 007332 012700 011002 MOV ATOO,RO 

1747 007336 012701 011042 MOV H#GDATOO.R1 

1748 007342 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1749 007344 004737 010650 JSR PC ,a#GSETUP :LOAD TEST PATTERN. 

1 007350 012703 000102 MOV #102,R3 

1751 007354 G7: 

1752 007354 172410 LDD (RO) ACO 

1753 007356 174001 STD CO,AC1 

1754 007360 401 LDD AC1,ACO :STORE THE TEST PATTERN. 

1755 007362 174011 STD ACO, (R1) 

1756 007364 010746 JSR PC, a#GCMP : COMPARE THE DATA READ WITH 
1757 “THAT WHICH WAS WRITTEN. 
1758 007370 005737 010776 TST @4GFLAG1 

1759 007374 

1760 007376 005137 010776 C aYGFLAG1 

1761 007402 SEC 

1762 007404 000401 BR 611 

1763 007406 000241 610: CLC 

1764 007410 006160 000006 G11: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
1765 007414 006160 000004 ROL 4 (RO) 

1766 20 006160 000002 ROL 2(RO) 

1767 007424 006110 ROL (RO) 

1768 007426 004737 010726 JSR PC ,a#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
1770 007432 077330 | SOB R3.G7 

He 

1773 : TEST ACCUMULATOR 1 WITH FLOATING ZERO 

177% 007434 012737 007464 001236 MOV #G12.aaSTMP2 

1775 007442 012700 011012 MOV #GPAT10.RO 

1776 007446 012701 011042 MOV #GDATOO,R1 

1777 007452 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1778 007454 004737 010650 JSR PC .a#GSETUP =LOAD TEST PATTERN. 

1779 007460 012703 000102 MOV #102,R3 

1780 007464 612: 

1781 007464 172410 LOD (RO) ACO 

1782 007466 174001 STD ACO,AC1 

1783 007470 1724 LDD AC1,ACO ‘STORE THE TEST PATTERN. 

1784 007472 174011 STD ACO, (R1) 

1785 007474 004737 010746 JSR PC, avGCMP :COMPARE THE DATA READ WITH 
1786 “THAT WHICH WAS WRITTEN. 
1787 005737 010776 TST @YGFLAG1 

1788 007504 001004 BNE 613 

1789 007506 005137 010776 COM @AGFLAG) 

1790 007512 000241 CLC 

1791 007514 000401 BR G14 

1792 007516 000261 G13: SEC 

1793 007520 006160 000006 G14: ROL 6(RO) =GENERATE THE NEXT TEST PATTERN. 
1794 007524 006160 000004 ROL 4 (RO) 

1795 007530 006160 000002 ROL 2(RO) 


4 
15:31 “pAGE 35 





CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 spat tse? 12-MAR-80 
C)KDCB.P11  12=MAR-80 15:26 ACCUMULATORS DATA PATTERNS TEST 

1796 007534 00611 ROL (RO) 

fa 14 007536 004737 010726 JSR PC ,@4#GRESET erie PATTERN IN OUTPUT 
1799 007542 077330 S08 R3,G12 | 

1801 : TEST ACCUMULATOR 2 WITH FLOATING ONE 

1802 007544 012737 007574 001236 MOV #615, a#STMP2 

1803 007552 012700 011002 MOV #GPATOO,RO 

1804 007556 012701 011042 MOV #GDATOO.R1 

1805 007 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1806 00 004737 010650 JSR PC ,a#GSETUP sLOAD TEST PATTERN. 

1807 007570 012703 000102 MOV #102,R3 

1808 007574 G15: 

1809 007574 172410 LDD (RO) ,ACO 

1810 007576 174002 STD ACO,AC2 

1811 007600 172402 LDD AC2,ACO =STORE THE TEST PATTERN. 

1812 007602 174011 STD ACO, (R1) 

1813 007604 004737 010746 JSR PC, a#GCMP : COMPARE THE DATA READ WITH 
1814 * THAT WHICH WAS WRITTEN. 
1815 007610 005737 010776 TST @NGFLAG) 

1816 007614 001004 BNE 616 

1817 007616 005137 010776 COM aNGFLAG1 

1818 007622 000261 SEC 

1819 007624 000401 BR G17 

1820 007626 000241 G16: CLC 

1821 007630 006160 000006 G17: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
1822 007634 006160 000004 ROL 4(RO) 

1823 007640 006160 000002 ROL 2(RO) 

1824 007644 006110 ROL (RO) 

1825 007646 004737 010726 JSR PC ,a@#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
1827 007652 077330 SOB R3,615 

1829 = TEST ACCUMULATOR 2 WITH FLOATING ZERO 

1830 007654 012737 007704 001236 MOV 5650 aet TMP2 

1831 007662 012700 011012 MOV WEPATTO“RO 

1832 007666 012701 011042 MOV #GDATOO,R1 

1833 007672 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1834 007674 004737 010650 JSR PC ,aWGSETUP :LOAD TEST PATTERN. 

1835 007700 012703 000102 MOV #102,R3 

1836 007704 G20: 

1837 007704 172410 LDD 

1838 007706 174002 STD 

1839 007710 172402 LDD :STORE THE TEST PATTERN. 

1840 007712 174011 STD 

1841 007714 737 010746 JSR =COMPARE THE DATA READ WITH 
1842 “THAT WHICH WAS WRITTEN. 
1843 007720 005737 010776 TST 

1844 007724 001004 BNE 

1845 007726 005137 010776 COM 

1846 007732 000241 CLC 

1847 007734 000401 BR 

1848 007736 000261 621: SEC 

1849 007740 006160 000006 G22: ROL =GENERATE THE NEXT TEST PATTERN. 
1850 007744 006160 000004 ROL 

1851 007750 006160 000002 ROL 





SEQ 0049 


4 
15:31 PAGE 


CJKDCB-A geri FP DIAG PART 1 MACY11 SAT 103e? 12-MAR-80 36 
CJKDCB.P11  12=MAR=80 15:26 ACCUMULATORS DATA PATTERNS TEST SEQ 0050 
1852 007754 006110 ROL (RO) 

1855 007756 004737 010726 JSR PC, a#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
1855 007762 077330 S08 R3,G620 

1857 :TEST ACCUMULATOR 3 WITH FLOATING ONE 

1858 007764 012737 010014 001236 MOV #623, aN4STMP2 

1859 007 012700 011002 MOV #GPATOO,RO 

1860 007776 012701 011042 MOV #GDATOO.R1 

1861 01 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
1862 010004 004737 010650 JSR PC ,a#GSETUP sLOAD TEST PATTERN. 

1863 010010 012703 000102 MOV #102,R3 

1864 010014 623: 

1865 010014 172410 LDD (RO) -ACO 

1866 010016 174003 STD ACO,AC 

1867 010020 172403 LDD AC3,ACO :STORE THE TEST PATTERN. 

1868 010022 174011 STD ACO, (R1) 

1869 010024 004737 010746 JSR PC, arG :COMPARE THE DATA READ WITH 
1870 + THAT T WHICH WAS WRITTEN. 
1871 010030 005737 010776 TST @4GFLAG1 

1872 010034 001 BNE G24 

1873 010036 005137 010776 COM QAGFLAG1 

1874 010042 000261 SEC 

1875 010044 000401 BR G25 

1876 010046 000241 om: Gx 

1877 010050 006160 000006 G25: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
1878 010054 006160 000004 ROL 4(RO) 

1879 010060 006160 000002 ROL 2(RO) 

1880 010064 006110 ROL (RO) 

1881 010066 004737 010726 JSR PC ,a#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
1883 010072 077330 SOB R3,623 

1885 = TEST ACCUMULATOR 3 WITH FLOATING ZERO 

188 010074 012737 010124 001236 MOV aeSTMP2 

1887 010102 012700 011012 #GPAT10,RO 

1888 010106 012701 011042 MOV are” RI 

1889 010112 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1890 010114 737 010650 JSR PC .a#GSETUP =LOAD TEST PATTERN. 

1891 010120 012703 102 MOV #102.R3 

1892 010124 626: 

1893 010124 172410 LDD (RO), x0 

1894 010126 174003 STD ACO, 

1895 010130 172403 LDD AC3.ACO :STORE THE TEST PATTERN. 

189% 010132 174011 STD ACO, (R1) 

1897 010134 004737 010746 JSR PC, = COMPARE THE DATA READ WITH 
1898 “THAT WHICH WAS WRITTEN. 
1899 010140 005737 010776 TST @NGFLAG1 

1900 010144 001004 BNE 627 

1901 010146 005137 010776 COM QAGFLAG) 

1902 010152 000241 CLC 

1903 010154 000401 BR G30 

1904 010156 000261 627; -SEt 

1905 010160 006160 000006 G30: ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 
1906 010164 006160 000004 ROL 4 (RO) 

1907 010170 006160 000002 ROL 2(RO) 
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12-MAR-80 15:31 PAGE 37 
ACCUMULATORS DATA PATTERNS TEST 


ROL (RO) 

JSR PC, a#GRESET *RESET DEFAULT PATTERN IN OUTPUT 
“BUFFER. 

SOB R3.G626 | 

:TEST ACCUMULATOR 4 WITH FLOATING ONE 

MOV #631, a#$TMP2 

MOV #GPATOO,RO 

MOV #GDATOO.R1 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC, a#GSETUP *LOAD TEST PATTERN. 

MOV #102,R3 

LDD (RO) ,ACO 

STD ACO,AC4 

LDD AC4,ACO :STORE THE TEST PATTERN. 

STD ACO, (R1 

JSR PC, a4GCMP = COMPARE THE DATA READ WITH 
“THAT WHICH WAS WRITTEN. 

TST @AGFLAG1 

BNE G32 

COM a4GFLAG1 

SEC 

. = 

ROL 6(RO) :GENERATE THE NEXT TEST PATTERN. 

ROL 4 (RO) 

ROL 2(RO) 

ROL (RO) 

JSR PC ,@WGRESET :RESET DEFAULT PATTERN IN OUTPUT 

SOB R3,631 

= TEST ACCUMULATOR 4 WITH FLOATING ZERO 

MOV ,aWSTMP2 

MOV #GPAT10,RO 

MOV #GDATOO.R1 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC .a#GSETUP :LOAD TEST PATTERN. 

MOV #102,R3 

LDD (RO) ACO 

STD CO,AC4 

LDD C4,ACO =STORE THE TEST PATTERN. 

STD ACO, (R1) 

JSR PC, aGCMP = COMPARE THE DATA READ WITP 
“THAT WHICH WAS WRITTEN. 

TST @AGFLAG 

BNE G35 

COM @4GFLAG1 

CLC 

BR 636 

ROL 6(RO) =GENERATE THE NEXT TEST PATTERN. 

ROL 4(RO) 

ROL 2(RO) 


SEQ 0051 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) | 1ecMAR-80 15:31 NAGE 38 
CJKDCB.P11.  12=MAR-80 15:26 T11 UMULATORS DATA PATTERNS TEST SEQ 0052 
1964 010414 006110 ROL (RO) 

1965 010416 004737 010726 JSR PC, a#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
1967 010422 077330 SOB R3,634 

1969 : TEST ACCUMULATOR 5 WITH FLOATING ONE 

1970 010424 012737 010454 001236 ‘MOV #637, a#STMP2 

1971 010432 012700 011002 MOV #GPATOO,RO 

1972 010436 012701 011042 MOV #GDATOO.R1 

1973 010442 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
1974 010444 004737 010650 JSR PC ,a#GSETUP :LOAD TEST PATTERN. 

1975 010450 012703 000102 MOV #102,R3 

1976 010454 G37: 

1977 010454 172410 LDD (RO) ,ACO 

1978 010456 174005 STD ACO,AC5 

1979 010460 172405 LDD ACS, "ACO :STORE THE TEST PATTERN. 

1980 010462 174011 STD NEO eRD 

1981 010464 004737 010746 JSR PC ,@4GCMP : COMPARE THE DATA READ WITH 
1982 * THAT WHICH WAS WRITTEN. 

1983 010470 005737 010776 TST Q4GFLAG) 

1984 010474 001004 BNE G4 

1985 010476 005137 010776 COM QNGFLAG1 

1986 010502 000261 SEC 

1987 504 01 G41 

1988 010506 000241 G40: CLC 

1989 010510 006160 000006 G41: ROL 6(RO) =GENERATE THE NEXT TEST PATTERN. 
1990 010514 006160 000004 ROL 4 (RO) 

1991 010520 006160 000002 ROL 2(RO) 

1992 010524 006110 ROL (RO) 

1993 010526 004737 010726 JSR PC, a#GRESET :RESET DEFAULT PATTERN IN OUTPUT 
1995 010532 077330 SOB R3,637 

1997 = TEST ACCUMULATOR 5 WITH FLOATING ZERO 

1998 010534 012737 010564 001236 MOV #642, aWSTMP2 

1999 010542 012700 011012 MOV #GPAT10,RO 

2000 010546 012701 011042 MOV #GDATOO.R1 

2001 010552 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2002 010554 004737 010650 JSR PC ace TUP -LOAD TEST PATTERN. 

2003 010560 012703 000102 MOV #102,R 

2004 010564 G42: 

2005 010564 172410 LDD (RO) ACO 

2006 010566 174005 STD ACO,AC5 

2007 010570 172405 LDD AC5.ACO :STORE THE TEST PATTERN. 

2008 010572 174011 STD ACO. (R1) 

2009 010574 004737 010746 JSR PC, aGCMP = COMPARE THE DATA READ WITH 
2010 “THAT WHICH WAS WRITTEN. 
2011 010600 005737 010776 TST Q4GFLAG1 

2012 010604 001004 BNE G 

2013 010606 005137 010776 COM QAGFLAG1 

2014 010612 000241 CLC 

2015 010614 00040 BR G44 

2016 010616 000261 G43: SEC 

2017 010620 006160 000006 G44: ROL 6(RO) -GENERATE THE NEXT TEST PATTERN. 
2018 010624 006160 000004 ROL 4 (RO) 

2019 0910630 006160 000002 ROL 2(RO) 





CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 304(1052) 12<MAR~B80 15:31 PAGE 39 
CJKDCB.P11 12-MAR 15:26 ACCUMULATORS DATA PATTERNS TEST 
010634 006110 ROL (RO) 
1 010636 004737 010726 JSR PC ,a#GRESET :RESET DEFAULT PATTERN In OUTPUT 
j 010642 077330 SOB R3,G642 
$05 
010644 000137 011052 JMP @4GDONE 
8 :USE THIS ROUTINE TO INITIALIZE ALL THE DATA BUFFERS. 
010650 Osh? 010776 GSETUP: MOV #GFLAG1,R5 
010654 012704 000026 #26, 
1 01 905025 1$: CLR (R5)+ 
01 077402 SOB R4,1$ 
34 010664 012705 011012 MOV #GPAT10,R5 
§ 010670 012704 000010 MOV #10,R4 
2036 010674 005125 2$ COM (R5)+ 
010676 077402 S0B R4,2$ 
39 010700 020067 000076 GS1 CMP RO,GPATOO 
0 010704 001401 BEQ 3$ 
3041 010706 207 RTS PC 
$028 010710 012705 011042 3$ MOV #GDATOO.RS 
2044 010714 012704 000004 MOV #4 RG 
2045 010720 005125 4$ COM (R5)+ 
2046 010722 077402 S0B R4,4$ 
047 010724 207 RTS PC 
2049 010726 012705 011042 GRESET: MOV #GDATOO.RS 
2050 010732 012704 000004 #4 RG 
2051 010736 005025 1$: CLR (R5)+ 
2052 010740 077402 S0B R4,1$ 
2053 010742 000137 010700 JMP $1 
2055 =SEE IF THE DATA WRITTEN MATCHES THE DATA READ. 
2056 010746 011637 001244 GCMP: MOV (SP) ,@#STMP5S :STORE ERROR PC 
2057 010752 012705 011042 #GDATOO, 
2058 010756 012704 000004 MOV #4 RS 
2059 010762 010002 MOV RO,R2 
2060 010764 022225 1$ CMP (R2)+, (R5)+ 
2061 010766 001401 BEQ 2$ 
2062 010770 1040035 ERROR 3 :PROBABLY BAD MMU, OTHERWISE IT IS THE FP CHIP 
2063 010772 077404 2$: S0B R4,1$ 
2064 010774 000207 RTS PC 
2065 
2066 
2067 
2068 
2069 010776 000000 GFLAG1: 0 
2070 011000 000000 GFLAG2: 0 
2072 011002 000000 ATOO: 0 
2073 011004 000000 GPATO1: 0 
2074 011006 000000 GPATO2: 0 
2075 011010 000000 GPATO3: 0 


SEQ 0053 
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CJKDCB-A_ KEF1I-A FP DING PART 1 MACY11 30A(1052) 1 
15:26 711 ACCUMULATORS DATA PATTERNS TEST SEQ 0054 


CJKDCB.P11 12-MAR~ 





2076 
5077 011012. 177777 GPAT10: -1 1 
5078 011014 177777 GPAT11: =1 
5079 011016 777 GPAT12: =1 | 
2080 011020 177777 GPAT13: -1 
2082 911022 177777 GANDO: | -1 | 

011024 1 GAND1: =1 
2084 011026 177777 GAND2: -1 | 
5085 011030 177777 GAND3: -1 | 
$08? 011032 000000 GORO: 0 | 
5088 011034 000000 GOR1: 0 
5089 011036 000000 GOR2: 0 
2090 011040 000000 GOR3: 0 
5092 011042 000000 GDATOO: 0 
5093 011044 000000 GDATO1: 0 
509% 011046 000000 GDATO2: 0 
5095 011050 000000 GDATO3: 0 
3096 
3097 
2098 011052 GDONE : 
2099 011052 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
2100 “SEE IF THE USER HAS EXPRESSED 
5101 “THE DESIRE TO CHANGE THE SOFTWARE 
3102 “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
3103 “THE USER TYPED CONTROL G?). 
a: 
2106 SRR RIERA ERR ER RRR REER ERA REAR ERE RRR RARER 
2107 “TEST 12 FPP ACCUMULATORS DUAL ADDRESS TEST 

** 
5109 “THIS TEST PERFORMS A DUAL ADDRESSING TEST ON THE FLOATING ACCUMULATORS. 
21 10 “NOTE THAT ACCUMULATOR ZERO IS USED TO ACCESS ALL THE OTHERS. 
** 

2112 + RRRERRRR RRR REE AR EEE RRR RARER EER A AERA R ERE EER EER EH 
5113 011054 000004 TST12: SCOPE 
2114 011056 104414 LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
5116 011060 005037 011604 H1: CLR a#HFLAG 
5117 011064 012700 011606 MOV —s AHA TW-RO : INITIALIZE THE LOAD BUFFER DATA. 
2118 011070 012701 011726 MOV #HDAT1,R1 
5119 011074 012703 000024 MOV #24.R3 
2120 011100 012120 H2: MOV (R15+, (RO) + 
2121 011102 077302 SOB. séR’3WH2 
5 011104 004767 000422 JSR PC,HCLR :CLEAR THE OUTPUT DATA BUFFER. 
5195 011110 170011 H3: SETD 
3126 -LOAD ACCUMULATOR 1 
5127 011112 012700 011606 MOV #HAIW.RO 
5128 011116 172410 LDD (RO) ,ACO 
5129 011120 174001 STD ACO,AC1 
5130 “LOAD ACCUMULATOR 2 
5131 011122 012700 011616 MOV #HA2W,RO : 


CJKDCB-A KEF11-A FP DIAG PAR 


CJKDCB.P11 
2132 011126 
2135 011150 
2134 
2135 011132 
21 011136 
2137 011140 
2138 
2139 011142 
2140 011146 
2141 011150 
2142 
2143 011152 
2144 011156 
2145 011160 
2146 
2147 011162 
2148 
2149 011166 
2150 
2151 
2152 
2153 
2154 011172 
2155 011176 
2156 011202 
2157 011204 
2158 011206 
2159 011210 
2160 011212 
2161 011216 
2162 011222 
2165 
2164 
2165 
2166 
2167 011224 
2168 011230 
2169 011234 
2170 011236 
2171 011240 
2172 011242 
2173 011244 
2174 011250 
2175 011254 
2176 
2177 
2178 
2179 
2180 011256 
2181 1262 
2182 011266 
2183 011270 
2184 011272 
2185 011274 
2186 011276 
2187 011302 


12-MAR~80 15: 
172410 
174002 
700 011626 
172410 
174003 
012700 011636 
172410 
4004 
012700 011646 
172410 
174005 
004737 011416 
004737 011474 
2700 011606 
012702 000004 
010001 
005121 
172410 
174001 
004737 011416 
004737 011474 
077210 
12700 011616 
012702 000004 
10001 
005121 
172410 
174002 
004737 011416 
004737 011474 
077210 
0127 011626 
012702 000004 
010001 
005121 
172410 
174003 
004737 011416 
004737 011474 


D 5 
T 1 MACY11 senna 12-MAR-80 15:31 PAGE 41 


FPP ACCUMULATORS DUAL ADDRESS TEST 

LDD (RO) ,ACO 

STD ACO,AC2 
OR 3 
HHASW RO 

LD (RO) ,ACO 
STD 

;LOAD ACCUMULATOR 
MOV MHA4W , RO 
LDD (RO) ,ACO 
STD 

:LOAD ACCUMULATOR 
MOV # 


LDD (RO) ,ACO 
STD ACO,AC5 


H4: JSR PC ,a#HSTD 3GO READ ALL ACCUMULATORS BACK. 
JSR PC ,a4HCMP ;SEE IF DATA IS CORRECT. 
:COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 1 


:RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 


MOV #HA1W,RO 
MOV #4 ,R2 
MOV RO.R1 
H5: COM (Ri)+ 
LDD (RO) ,ACO 


;READ ALL THE ACCUMULATORS BACK. 
7CHECK THE DATA. 
SOB R2.H 


: COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 2, 
oe THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 


‘ ATA. 


MOV #4 RO 
MOV RO.R1 
H6: COM (Ri)+ 
LDD (RO) ,ACO 
STD ACO,AC2 
JSR PC a#HSTD =READ ALL THE ACCUMULATORS BACK. 
JSR PC avHc “CHECK THE DATA. 
S08 R2,H6 


: COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 3, 
“RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 


“THE DATA. 
MOV #HASW,RO 
MOV #4 Re 
MOV RO.R1 
H7: COM (Ri)+ 
LDD (RO) ,ACO 
STD co, 


;READ ALL THE ACCUMULATORS BACK. 


ACO,AC 
JSR PC ,@AHSTD 
:CHECK THE DATA. 


JSR PC ,@#HCMP 


SEQ 0055 


CJKDCB-A KEF11-A FP DIAG 15056 1 MACY11 <i 


e 3 
12-MAR-80 15:31 PAGE 42 
FPP ACCUMULATORS DUAL ADDRESS TEST 


CJKDCB.P11 12=MAR=-80 1 

2188 011306 077210 SOB R2,H7 

2190 = COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 4 
2191 :RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
2193 011310 0612700 011636 MOV #HAGW,RO 

2194 011314 012702 000004 MOV #4,R2 

2195 011320 010001 MOV RO.R1 

2196 011322 005121 H10: COM (Ri) + 

2197 011324 172410 LDD (RO) ACO 

2198 011 174 STD ACO,AC 

2199 011330 004737 011416 JSR PC, a#HSTD ‘READ ALL THE ACCUMULATORS BACK. 
2200 011334 004737 011474 JSR PC; a#HCMP “CHECK THE DATA. 
2201 011340 077210 SOB R2.H10 

2203 = COMPLIMENT EACH WORD OF THE DATA STORED IN ACCUMULATOR 5, 
Re | :RELOAD THAT ACCUMULATOR, READ ALL THE ACCUMULATORS BACK AND CHECK 
i Py 

5206 011342 012700 011646 MOV #HASW,RO 

2207 011346 012702 MOV #4,R2 

2208 011352 010001 MOV RO.R1 

2209 011354 005121 H11: COM (Ri) + 

2210 011356 172410 LDD (RO) ,ACO 

2211 011360 174005 STD ACO,ACS " 

2212 011362 737 (011416 JSR PC, a#HSTD :READ ALL THE ACCUMULATORS BACK. 
2213 011366 004737 011474 JSR * aAHCMP “CHECK THE DATA. 
2214 011372 077210 SOB °H11 

2215 

2216 

2217 011374 005737 011604 TST QHHF LAG 

2218 011400 001402 BEQ H12 

2219 011402 000137 011776 JMP 

2221 011406 005137 011604 H12: COM QHHF LAG 

222 011412 000137 011110 JMP awH3 

2224 :STORE ALL ACCUMULATORS IN THE OUTPUT BUFFERS. 

2225 011416 004737 011532 HSTD: JSR PC @FHCLR =CLEAR ALL OUTPUT BUFFERS. 
2226 =STORE ACCUMULATOR 1 

2227 011422 012704 011656 MOV 1R,RG 

2228 011426 172401 LDD AC1,ACO 

2229 011430 174014 STD ACO, (R4) 

2230 =STORE ACCUMULATOR 2 

2231 011432 012704 011666 MO : 

2232 011436 172402 LDD AC2,ACO 

2233 011440 174014 STD ACO, (R4) 

2254 =STORE ACCUMULATOR 3 

2235 011442 012704 011676 MO JR 

22% 011446 172403 LDD AC3,ACO 

2237 011450 174014 STD ACO. (R4) 

2238 =STORE ACCUMULATOR 4 

3239 011452 012704 011706 MOV HHAGR RG 

2240 011456 172404 LOD ACS, ACO, 

2241 011460 174014 STD ACO, ( 

2242 : STORE ACCUMULATOR ‘ws 

2243 011462 012704 011716 MOV HHASR RG 


SEQ 0056 


CJKDCB-A KEF11-A FP DIAG PAR 
80 15:2 


CJKDCB.P11 12-MAR~ 
22 011466 172405 
2245 011470 174014 
2246 011472 000207 
2247 
2248 
2249 011474 012637 
2250 011500 012703 
2251 011504 012704 
2252 011510 012705 
2253 011514 022324 
2254 011516 001408 
2255 011520 00013 
2256 011524 077505 
2257 011526 0001 
2258 
2259 
2260 011532 012704 
2261 011536 012705 
2262 011542 005024 
2263 011544 077502 
2264 011546 
2265 
2266 
2267 011550 
2268 011550 012703 
2269 011554 O12 
2270 011560 01270 
2271 011564 010324 
2272 011566 062703 
2273 011572 077504 
2274 011574 10400 
2275 011576 000137 
2276 
2277 
2278 011602 000000 
2279 011604 000000 
2280 
2281 011606 000000 
2282 011614 000000 
2283 011616 000000 
2284 011624 000000 
2285 011626 000000 
2286 011634 000000 
2287 011636 000000 
2288 011644 000000 
2289 011646 000000 
S550 011654 000000 
2292 011656 000000 
2293 011664 000000 
2294 011666 000000 
2295 011674 000000 
2296 011676 000000 
2297 011704 000000 
2298 011706 000000 
2299 011714 000000 


T 1 MACY11 30A(1052) 
6 T12 


HCMP1: 


HCMP2: 


:CLEAR THE DATA 
HCLR: MOV 


HCLR1: 


;REPORT 
4 


ERROR: 


1$: 


2$: 


LDD ACS,ACO 

STD ACO, (R4) 

RTS PC 

=COMPARE DATA LOADED WITH DATA READ. 
HCMP: MOV (SP) +, @#HADR 

MOV #HAIW._R3 

MOV #HAIR_RG 

MOV #24,R 

CMP (R3)+,(R4)+ 

BEQ HCMP2 

JMP @FAHERROR 

SOB R5,HCMP1 

JMP @HADR 
OUTPUT BUFFER. 
AHAIR RG 

MOV #24 ,R5 

CLR + 

SOB R5,HCLR1 

RTS 

ERROR 

MOV #HAIW.R3 

MOV WSTMP2 RG 

MOV #12,R5 

MOV R3,(R4)+ 

ADD #10,R3 

SOB 5.1$ 

ERROR 1 

MP @#HDONE 

0 

0 

-WORD 0,0,0.0 

-WORD 0,0,0,0 

.WORD 0,0.0,0 

.wORD 0,0,0,0 

.WORD 0,0,0,0 

-WORD 0.0.0.0 

-WORD 0,0,0,0 

~ WORD 0,0,0,0 

“WORD 0,0,0.0 


12-MAR-80 15:31 


;. 3 
PAGE 43 
FPP ACCUMULATORS DUAL ADDRESS TEST 


;SAVE RETURN ADDRESS. 


SEQ 0057 


CJKDCB-A KEF11-A FP DIAG PART 1 
12-MAR 1 


CJKDCB.P11 


— — — 2 


MMNMNMNYNN 
oO 


N 
WW 
ONAUSWN—O 


MmMrNN 
W 


2319 
320 


756 


NEE 


Si 
oO 


0 
172410 
012737 


012700 
012737 
005003 
172407 
170000 
005203 
005203 
012701 
174011 
012701 


012702 
012705 


5:26 
000000 


073567 
063146 
010421 
031463 
042104 


012512 


012212 


000001 
012422 


MACY11 30A(1052) 
Ti2 


000000 


073567 
063146 
010421 
031463 
042104 


000244 


HASR: 


HDAT1: 
HDAT2: 
HDAT3: 
HDAT4: 
HDATS5: 


HDONE : 


12-MAR-80 
FPP ACCUMULATORS DUAL ADDRESS TEST 


. WORD 


G 5 
15:31 PAGE 4 


0,0,0,0 


73567 ,73567 ,73567, 73567 
63146,63146 ,63146,65146 
10421 ,10421,10421,10421 
31463, 31463,31463, 31463 
42104 ,42104 ,42104 ,42104 





| 
SEQ 0058 


3GO INITIALIZE THE FPS AND STACK; AND 


THE USER HAS EXPRESSED 


SEE IF 
:THE DESIRE TO CHANGE THE SOF TWARE 


CONSOLE SWITCH REGISTER (HAS 


: VIRTUAL 
; THE USER TYPED CONTROL G?). 


5 EERE RARE ERE EREE AER EERER AREER AERA AREER ES 


FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


:*TEST 13 


: STHIS IS - TEST OF FSRC MODE 0 WITH ACCUMULATORS 6 AND 7. USE OF 
THESE ee aa SHOULD RESULT IN A TRAP TO 244 
seul TH rete 2 (ILLEGAL OPCODE T 


| eeudneianbediebebiannbacdwedusesiadbaaeeteenseboonseceentnes 


: *EI THER 


T8113: 


S1: 


SCOPE 


>SET UP 


#SPAT10,RO 
(RO) ,ACO 


#SERRO ,@4F PVECT 


#1,R0 
A#SERR1 ,AMERRVECT 
R3 


AC7,ACO 


R3 
R3 


#SDATOO,R1 
ACO, (R1 1) 


#SDATOO.R1 
#SPAT10,R2 
#4,R3 


THE LOOP ON ERROR ADDRESS. 
SET FD 
[LOAD ACO 


;USE OF THE NON-EXISTENT AC- 
;CUMULATOR SHOULD RESULT IN 
iA TRAP TO 244. 

A FAILURE IN THE FSRC FLOWS 
“WILL Sw ga IN AN ODD ADDRESS 
: TRAP TO 4 


3NO TRAP OCCURRED?! 
SEE IF ACO WAS MODIFIED. 


5 
15:31 "PAGE 4 


;BAD DATA 


sMISSING TRAP 


THE LOOP ON ERROR ADDRESS. 


sLOAD ACO 


NO TRAP! GET ACO. 
z;WAS ACO MODIFIED. 


:PC OF TRAP CORRECT? 


:1S FPS CORRECT? 


31S FEC CORRECT? 


CJUKDCB-A KEF11-A FP ou”, PART 1 MACY11 SOAt1052) of eG 45 
CJKDCB.P11 12“MAR=80 15:26 113 € MODE 0 WITH ILLEGAL ACCUMULATOR TEST 
2356 012070 022122 SS: CMP (R1) +, (R2)+ 
2357 012072 001402 BEQ S6 

2358 012074 000137 012352 MP aASERR2 

2359 012100 077305 S6: SOB R3,S5 

361 012102 000137 012376 JMP QASERR3 

$308 -NOW TEST AC6. 

2364 012106 $7: 

235 012106 104414 LPERR :SET UP 
3366 012110 170011 SETD 

2%8 012112 012700 012512 MOV #SPATIO RO 
2369 012116 172410 LDD ),AcO 

3371 012120 012737 012270 000244 MOV #SERR4 , QF PVECT 
2372 012126 012700 000001 MOV wl, 

3373 012132 012737 012454 000004 MOV #SERRS , a@#ERRVECT 
237% 012140 005003 CLR R3 

2376 012142 172406 58: LDD AC6,ACO 

2377 012144 170000 59: CFCC 

2378 012146 005203 INC R3 

3379 012150 005203 $10: INC R3 

2381 012152 012701 012522 MOV #SDATOO,R1 
2382 012156 174011 STD ACO, (R1) 

2384 012160 012701 012522 MOV #SDATOO,R1 
2385 012164 012702 012512 MOV #SPAT10.R2 
238 012170 012703 000004 MOV #4.R 

2387 012174 022122 $11: CMP (R1)+, (R2)+ 
2388 012176 00140 BEQ $12 

2389 012200 000137 012364 JMP aA SERR6 

2390 012204 077305 $12: S0B R3,$11 

2391 012206 000137 012410 JMP @ASERR7 

2393 : TRAPPED TO 244. 

2394 012212 021627 012040 SERRO: CMP (SP) .#S3 

2395 012216 001402 BEQ 

2396 12220 137 062524 JMP aAFPSPUR 
2398 012224 012737 012106 012506 1S: MOV #S7, @#SADR 
2400 012232 011637 001236 SERR10: MOV (SP) ,aaSTMP2 
2401 012236 022626 CMP (SP) +, (SP) + 
2402 012240 005004 CLR R4 

2403 012242 170204 STFPS 

2404 012244 022704 100200 CMP #100200,R4 
2405 012250 001020 BNE SERR15 

2407 012252 005004 CLR R4 

2408 012254 170304 sTsy 0 

2409 012256 022704 000002 CMP #2,R4 

2410 012262 001023 BNE SERR20 

2411 012264 177 000216 JMP @SADR 


SEQ 0059 


CJKDCB=A KEF11-A FP DIAG PART 1 
~80 15:26 


CJKDCB.P11 


446 
012450 


0 

012470 
012474 
012500 
012502 


12-MAR~ 


012737 
104 


0004 
012737 
104 


011637 
022626 
104001 


012144 


062 36% 
012552 


012036 


012142 


012036 


012142 


012040 
012044 
062556 
001236 


012142 
012144 
062556 
001236 


MACY11 


012506 


001242 


001242 


001236 


001236 


001236 


001236 


| 3 
15:31 PAG 


SAC 1052) of ees E 46 
713 C MODE 0 WITH ILLEGAL ACCUMULATOR TEST 
SERR4: CMP (SP) ,#S9 
BEQ 1$ 
JMP a4F PSPUR 
1$: MOV #SDONE , A SADR 
BR SERR10 
REPORT FPS FAILURE: 
RR15: MOV #100200,aa$ IMPS 
MOV R4,@4STMPS 
1$: ER 1 
JMP @SADR 
sREPORT FEC 
SERR20: MOV #2, 04S TMPS 
MOV R4,a4STMPS 
1$: ERROR 1 
JMP @SADR 
-ACO WAS MODIFIED. (BUT FSRC) FORK FAILED. 
SERR2: MOV #S2,a4STMP2 
ERROR 
BR SDONE 
SERR6: MOV #S8 ,a#STMP2 
1$: ERROR 1 
BR SDONE 
SERR3: MOV #S2,aA4STMP2 
1$: ERROR 1 
BR SDONE 
SERR7: MOV #S8 ,a#STMP2 
1$: ERROR 1 
BR SDONE 
-FAILURE OF (BUT FSRC) CAUSED AN ODD ADDRESS TRAP TO 4 
SERR1: oa (SP) #83 ;DID TRAP OCCUR ON TESTED INSTRUCTION? 
CMP (SP) ,#S4 
BEQ 
JMP a4CPSPUR 
1$: MOV (SP) ,a#STMP2 
CMP (SP)+, (SP)+ 
2s: ERROR 1 
BR SDONE 
SERRS: a (SP) ,#S8 :DID TRAP OCCUR ON TEST INSTRUCTION? 
CMP (SP) ,#S9 
BEQ 
JMP a4 CPSPUR 
1$: MOV (SP) ,a#STMP2 
CMP (SP)+, (SP)+ 
2$: ERROR 1 


SEQ 0060 


CJKDCB-A_KEF11-A FP D 
12-MAR- 


CJKDCB.P11 


BERLE Perce 


RRHHHOEYND 


N 
nine 
NMLSSaWAMRWN—O 


012504 


012564 
012566 
012570 
012572 
012576 


000412 


000000 
177777 


000004 
104414 
170011 
012700 
172410 
012700 
005003 
012737 
172420 
005203 
005203 
012701 
174011 
020027 
001001 
000442 
012702 
012703 
01 


2704 
022225 


013016 


012776 
012646 


013006 


012766 


012776 
013006 


[As PART 1 MACY11 30A(1052) 
15:26 113 


SADR: 


SPAT10: 


SDATO2: 
SDATO3: 


SDONE : 


Oooo Ffwrv—ti oOo 


$5 
12-MAR-80 15:31 PAGE 47 
FSRC MODE 0 WITH ILLEGAL ACCUMULATOR TEST 


wo 

—fof 
ar 
Wr 


x 
#4) 
m 
a4 
& 


SDONE 


:GO INITIALIZE THE FPS AND STACK; 
7SEE IF THE USER HAS EXPRESSED 

; THE DESIRE 70 CHANGE THE SOFTWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
:THE USER TYPED CONTROL G?) 


5 RAR R ARATE EERE AAA EAR AAA AAA AERA REARERRR ARR REE E SS 


; TEST 14 


**® 
iST14: 


my rh BeBe Be 


Ji: 


J2: 
J3: 
J4: 


1$: 


JS: 


SCOPE 
LPERR 


SETD 


FSRC MODE 2 TEST 


:* THIS IS A TEST OF FSRC MODE 2, AUTO 
;* INCREMENT MODE. 


© RARE REAAEERARAEKAAEERERAEAAEEARAAEEAERAREEAEARAEEEREEREREEEARERERARE 


SET UP THE LOOP ON ERROR ADDRESS. 


SET DOUBLE MODE 
#JDATO,RO 
(RO 


),ACO :LOAD ACO=ALL 1 
#JDATIO,RO 
#JERRO, @#ERRVECT 
(RO) + .ACO : TEST INSTRUCTION 
#JDATOO,R1 
ACO, (RI) :PICK UP RESULTS 
RO, #JBUFO :WAS AN AUTO 
1$ “DECREMENT EXECUTED? 
JERR1 
#JDATIO,R -1S DATA CORRECT? 
iy 
(R2)+, (R3)+ 


SEQ 0061 


CJKDCB=A KEF11-A FP DIAG PART 1 MACYT1 haar 
12-MAR~80 15:26 


CJKDCB.P11 


001401 
000443 
077404 


052525 
114631 
063146 
073567 


000000 
000000 
000000 
000000 


013006 


012566 
012570 
062556 


012564 
012776 
013006 


001240 
001242 


J?7: 


K 5 
12-MAR-80 iat PAGE 48 


FSRC MODE 2 T 
BEQ J6 
BR JERR2 
S08 .J5 
CMP #JDATIO+10,RO A RO INCREM. 
BEQ J? Y 10 (OCTAL) 
BR JERR1 
BR JDONE 


: IF A TRAP THROUGH 4 OCCURS COME HERE 


JERRO: 


J10: 


JDATI2: 
JDAT!3: 


‘DATOS: 


CMP (SP) #53 ;SEE IF THE TRAP 
BEQ J “OCCURRED ON TH 
CMP (SP) .J4 “TESTED INSTRUCTION 
JMP aHCPSPUR 
MOV #762,Q4STMP3 =; REPORT _FSRC FLOW 
MOV #322. QNSTMPG =: FAILURE 
MOV (SP) -awSTMP2 
CMP (SP)+, (SP)+ 
ERROR 1 
BR JDONE 
:REPORT, RO NOT 

MOV #52. aHSTMP2 “CORRECTLY AFFECTED 
MOV #IDAT10+10, aS TMP4 
ERROR 1 
BR JDONE 
DATA FAILURE 
MOV #52. QNSTMP2 
MOV #IDAT IO, aaSTMP3 
MOV #JDATOO, aa$STMP4 
ERROR 1 
BR JDONE 
-WORD 010621 

021042 

042104 

031463 

052525 

114631 

063146 

073567 

0 

0 

0 

0 


SEQ 0062 


. 3 
CJKDCB=A KEF11-A FP DIAG PART 1 MACYT1 5 al 12-MAR-80 .5:31 PAGE 49 


CJKDCB.P11 12=MAR-80 15:26 FSRC MODE 2 TEST SEQ 0063 
013016 177777 JDATO: -1 
2581 01 3020 177777 JDAT1: of 
2582 013022 177777 JDAT2: a4 
2583 013024 177777 JDAT3: a} 
2584 
2585 
2586 013026 JDONE : 
2587 013026 104413 RSETUP :60 INITIALIZE THE FPS AND STACK; AND 
2588 “SEE IF THE USER HAS EXPRESSED 
2589 ;THE DESIRE TO CHANGE THE SOF TWARE 
2590 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
2591 “THE USER TYPED CONTROL G?). 
338 
94 SARA RRR EER EERE EER RARER ERE AR EEE A RRA A RARER RS ESS 
2599 “*TEST 15 FSRC MODE 4 TEST 
3% 
2597 ** THIS IS A TEST OF FSRC MODE 4, AUTO 
3398 ** DECREMENT MODE. 
**® 
2600 + RRERRRAR RRA A AERA R AE EE EES 
2601 013030 000004 TST15: SCOPE 
2602 013032 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
2604 013034 K1: 
2605 013034 170011 SETD :SET DOUBLE MODE 
2607 013036 012700 013310 MOV #KPATO,RO 
2608 013042 172410 LDD (RO) ACO :LOAD A DEFAULT 
2609 “PATTERN INTO ACO 
2610 013044 012700 013270 MOV #KBUF ORO 
2611 013050 005003 CLR 
2612 013052 012737 013142 000004 MOV #KERRO, aWERRVECT 
2614 013060 172440 K2: LDD ~(RO) ACO : TEST INSTRUCTION 
2615 013062 005203 K3: INC R3 
2616 013064 005203 KG: INC R3 
2618 013066 012701 013300 MOV #KDATOO,R1 
2619 013072 174011 STD ACO, tRIS :PICK UP THE RESULT 
2621 013074 020027 013300 CMP RO,#KBUFO+10 WAS AN AUTO 
2622 013100 001001 BNE 1$ ‘INCREMENT EXECUTED 
2625 013102 000441 BR KERR1 
2625 013104 012702 013260 18: MOV #KDATIO,R2 :1S DATA CORRECT? 
2626 013110 012703 013300 MOV #KDATOO,R3 
2627 013114 012704 000004 MOV #4,R 
013 022223 K5: CMP {ROD +, (RB)+ 
2629 013122 001401 BEQ K6 
2630 013124 000442 BR KERR2 
2631 013126 077404 K6: $08 R4,K5 
2633 013130 022700 013260 CMP WKBUFO-10,RO  ;:WAS RO DECREMENTED 
2634 013134 001401 BEQ 7 = PROPERLY? 


K 
2635 013136 000423 BR KERR’ 


CJKDCB-A KEF11-A FP DIAG PART 1 
12-MAR-80 15:26 


CJKDCB.P11 


013140 


013516 


013320 
013320 


000467 


012737 
012737 
012737 
104001 


052525 
31 


013060 
013260 
013300 


MACY11 30A(1052) 
T15 


001240 
001242 


001236 
001242 


ee mie de 


KDONE 





mM 5 
PAGE 50 


SEQ 0064 


; TRAP TO HERE ON AN ODD ADDRESS ERROR 


(SP) ,#K3 ;SEE IF ve “a 
K10 :OCCURRED AT THE 
—_—— INSTRUCTION TESTED. 
a4 CPSPUR 
#762 ,@ASTMPS ;REPORT FAILURE IN 
#324, aASTMPS ;FSRC FLOWS 
ee AS TMP2 
KDONE 
;REPORT, RO 
ome Oeste ; INCORRECTLY AFFECTED. 


RO, a#STMP 


MP3 
#KDATIO, ,O4STMPS 


DATA FAILURE 


FSRC MODE 4 
K7: BR 
KERRO: CMP 
BEQ 
CMP 
BEQ 
JMP 
K10: MOV 
MOV 
MOV 
1$: ERROR 
BR 
KERR1 
MOV 
MOV 
MOV 
1$: ERROR 
BR 
REPORT 
KERR2: 
MOV 
MOV 
MOV 
1$: ERROR 
BR 
KDATIO: .WORD 
awe § 
KDATI3 
KBUF 0: 
KBUF 1 : 
KBUF 2: 
KBUF 3: 
KDATOO 
KDATO1 
KDATO2 
KDATO3 
KPATO 
KPAT1 
KPAT2 
DPAT3 
KD 
RSE TUP 


:GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 


CJKDCB-A mies FP DIAG PART 1 MACY11 S0A( 1052) 
12=-MAR~80 15:26 115 


CJKDCB.P11 


2693 
94 


013352 
013554 
013356 
013362 
013564 
013366 
013370 
013372 
013372 


013374 
013400 


012702 


012120 
077202 


172420 
005205 


170011 


012701 
174011 


020027 
001401 
000421 


012737 


022223 
001401 


000427 
077404 


013576 


013620 
013606 


013620 


013632 
013624 
177777 
177777 


013620 
013632 
000004 


013624 
013626 


12-MAR-80 
FSRC MODE 4 


N 5 
15:31 PAGE 51 
TEST 


;THE DESIRE TO CHANGE THE SOFTWARE 
: VIRTUAL CONSOLE SWITCH 5 (HAS 
: THE USER TYPED CONTROL G?) 


ee RRR REE EEEREERER AEA ERR EEE 


;*TEST 16 


:* THIS IS A TEST OF FSRC A ae 2 WITH 
(AUTO INCREMENT) 


© ee RR REE EEE EEE AKER EREHEEEEEEEREHREEE 


;* FD=0. 


:* 
rST16: 


Lt: 


1$: 


1$: 


L3: 


L6: 


SCOPE 
LPERR 


SETD 


FSRC MODE 2, WITH FD=0, TEST 


SET UP THE LOOP ON ERROR ADDRESS. 


;SET DOUBLE MODE 
oe ee 


ee :LOAD ACO 
#LDATIO,RO -SET UP THE INPUT 
ALPAT20,R1 “DATA 
#4 R2 
(R1)+, (RO)+ 
R2,1$ 
#LDATIO,RO 
R3 
:CLEAR FD. 
(RO)+,ACO 
R3 
:SET FD 

#LDATOO,R1 
ACO, (R1) :PICK UP RESULTS 
RO,ALDATI2 :WAS RO INCREMENTED 
1$ >CORRECTLY BY 4 
LERR1 
#-1,a#LDATI2 
#-1 aALDATI3 

#EDATIO,R2 :1S DATA CORRECT 
ALDATOO. 
#4 RG 
(R2)+, (R3)+ 
L6 
LERR2 
R4,L5 


SEQ 0065 





CJKDCB-A KEF11~A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 52 
26 T16 C MODE 2, WITH FD=0, TEST 


CJKDCB.P11. 12 15: FSR 
(4g 013452 000473 BR LDONE 
1 2 LERR1: sREPORT FAILURE 
1 01 12737 013366 001236 MOV #2. aaSTMP2 "RO NOT INCREMENTED 
; 1 16037 001240 MOV , Spy 4 
1 12737 013624 001242 MOV #LDATI2,aaSTMP4 
1 104001 1$: ERROR 1 
755 013476 000461 BR LDONE 
757 (01 LERR3: :REPORT DATA FAILURE. 
738 1 012737 013366 001236 MOV #2, aH$TMP2 
759 (01 or 7 013620 001240 MOV #.DATIO ,a#$TMP3 
760 013514 012737 013632 001242 MOV #LDATOO. a#STMPS 
761 01 332 104001 1$: ERROR 1 
376 013524 000446 BR LDONE 
76 013526 01 702 013606 LERR2: MOV #LPAT20,R2 “DID (BUT FD) 
765 013532 012703 013632 MOV #LDATOO.R3 “FAIL. 
766 013536 012704 000004 MOV #6 RG 
76 013942 022223 1$: CMP (R2)+,(R3)+ 
768 013544 001355 BNE LERR3 
3769 013546 077403 S08 R4,1$ 
5770 013550 012737 013366 001236 MOV #2, aMSTMP2 
9771 013556 012737 013620 001240 MOV #LDATIO, a#$TMP3 
2772 013564 012737 001242 MOV #LDATO1.a#$TMP4 ss 


eee ee ee —— 


C 6 
CJKDCB-A KEF11-A FP DIAG 15056 1 MACYT1 spat Se? PAGE 53 


CJKDCB.P11 12-MAR-80 1 SEQ 0067 


013572 
013574 


01 
01 


104001 
000422 


177777 
177777 
177777 
177777 
052525 


073567 


000004 


170011 
012700 
172410 
005004 
012737 
172427 
0 


014142 


014102 000004 


000000 


23: 


LPAT10: 


LPATI2: 
LPAT13: 


LPAT20: 
LPAT21: 
LPAT22: 
LPAT23: 


LDATIO: 


LDATO3: 


LDONE : 


12-MAR-80 15:31 
FSRC MODE 2, WITH FD=0, TEST 
ERROR 
BR LDONE 
. WORD a 
-1 
-1 
052525 
114631 
063142 
073567 
. WORD — 
0 
0 
0 
. WORD _ 
0 
0 
0 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
*THE DESIRE TO CHANGE THE SOF TWARE 
-VIRT CONSOLE SWITCH ee (HAS 


; VIRTUAL 
THE USER TYPED CONTRCL G?) 


FRRERERRRERERRERAREEERERER AERA RRREAEAEAAEERE ERE ERAR AAA LEER SS 


: TEST 17 FSRC MODE 2 WITH GR7. IMMEDIATE MODE, TEST 
“ THIS IS A TEST OF FSRC MODE 2 
* USING GR7 (THE PC). THIS IS IMMEDIATE 
** MODE. 
-& 
+ RRRRRERERARRARERR ERE RER RARER RARE EAA A RAE AAR RARER AREER E 
1ST17: SCOPE 
M1: 
SETD 
MOV #MPAT10.R 
LDD (RO) aie :LOAD BACKROUND 
“PATTERN INTO ACO. 
CLR R4 
MOV #MERR3 , @#ERRVECT 
M15:  LDD #0,ACO TEST INSTRUCTION 
-=,-2 :EFFECTIVELY = 05204 IS PUT IN THE FIRST 
"WORD 5204 :16 BIT WORD . ORT HE *'EXP-FRACTION'® WORD. 
M2: INC R4 
M3: ™NC R4 ‘Hos004~ ONC R4 
M4: INC R4 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 ss al 
12-MAR-80 15:26 


CJKDCB.P11 


2829 
2830 


2831 


013710 
013714 


4 
014012 
014014 


014016 
014022 


014102 
014106 
014110 
014114 


020427 
001401 
000443 


032716 
001002 
000137 
011637 


000003 


014162 
014162 
005204 


000003 


001236 





D 6 
PAGE 54 


12-MAR-80 15:31 
FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST SEQ 0068 
CMP | R4,A3 :SEE IF THE PC 
BEQ =: 1$ “WAS INCREMENTED 
BR MERRO “BY 2 DURING THE 
“INSTRUCTION. IF 
“NOT THEN A BAD 
“CONSTANT WAS GENERATED 
MOV #MDATOO,RO 
STD ACO, (ROD :GET THE DATA 
MOV ATOO,RO 
CMP #5204, (RO) + :1S THE DATA CORRECT? 
BEQ m5 
BR MERR1 
MOV #3,R1 
TST (RO) + 
BNE 7 
SOB R1,M6 
BR ONE 
MOV #MDATOO,RO -DID (BUT GRM) FAIL? 
MOV #6.R1 
CMP #5204, (RO) + 
BEQ M9 
BR MERR1 
$08 R148 
:REPORT FAILURE 
MOV WM15.a4STMP2 | :OF (BUT GR7) 
MOV #MPAT20, a#STMP3 
MOV #MDATOO, aS TMPS 
ERROR 1 
BR MDONE 
MOV #M2,R5 sREPORT FAILURE 
MOV RS, a#STMPS “PC INCREMENTED 
SUB #3,R4 
ASL 
SUB RS 
MOV Re EASTMPS 
MOV mis. aaSTMP2 
ERROR 
BR MOONE 
:REPORT DATA 
MOV #15. a#STMP2  : FAILURE 
MOV #MDATOO, aS TMP3 
MOV KMPAT 20, a#STMPS 
ERROR 1 
BR MDONE 
: TRAP TO HERE THROUGH 4. 
MERR3: BIT #1, (SP) :SEE IF THE 
; TRAP TO 4 OCCURRED 
JMP a4CPSPUR AUSE OF AN 
:000 A ADDRESS 
MOV (SP), a#STMP3  :IF YES REPORT 


1$: 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 SPALTOSE? 
12-MAR=80 15:26 


CJKDCB.P11 


014140 


014142 
dedee 
014146 
014150 


014152 


014172 
014172 


014174 


014176 
014176 


014200 
014204 


014206 
014212 
014214 


014222 
014224 
014226 


014230 
014234 


012737 013672 001242 
001 


025626 


104001 


177777 


000004 
170011 


012700 
172410 
012700 
005003 
012737 


012701 
174011 


013666 


014660 


014646 


014370 000004 


014626 


236 


E 6 
15:31 PAGE 55 


12=MAR-80 
FSRC MODE 2 WITH GR7, IMMEDIATE MODE, TEST 
MOV #2. aNSTMPG :BAD CONSTANT 
MOV amis. awSTMP2 § :GENERATED 
CMP (SP)+, (SP) + 
ERROR 1 
BR MDONE 
-1 
-1 
of 
oj 
5204 
5204 
5204 
5204 
0 
0 
0 
0 
RSETUP 


:GO INITIALIZE THE FPS AND STACK; AND 

:SEE IF THE USER HAS EXPRESSED 

+ THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH _— (HAS 

[THE USER TYPED CONTROL G?) 


SERRA ARERRARREREREREEREREEERAA RARE ARERR ARAAAERRERERERERE RARE EES 


ssTEST 20 
:* THIS ER Ry TEST OF FSRC MODE 3, AUTO INCREMENT 


FSRC MODE 3 TEST 


RRA EKAAAERAERAEAAEREAEAEERERAAEAEAEAEEAERAAARAAEAAAAAAAAEEE 


:* DEFE 

7* 

ST20: SCOPE 

N1: 
SETD 
MOV 
LDD 
MOV 
CLR 
MOV 

N2: LDD 

N3: INC 

N4: INC 
MOV 
STD 


:SET FD MODE 
#NPAT10,RO 
(RO) ,ACO ;LOAD ACO WITH A DEFAULT 
#NPAT20.RO : 
WNERRO.@MERRVECT -IF A FAILURE OCCURS 
:IN THE FSRC FLOWS AN 
‘tDD. TRAP TO ,; COULD OCCUR 
(RO) + .ACO “TEST INSTRUCTION. 
R3 
#NDATOO,R 
ACO, sal :GET THE DATA 


SEQ 0069 


CJKDCB=A KEF11~A FP 1”, PART 1 MACY11 SOACIOS) 
~80 15:26 T20 


CJKDCB.P11 


oad 


compan omppN 


014236 
014242 


014244 
014250 
014252 
014254 
014260 
014262 
014264 
014270 
014272 
014 

014310 
014312 
014314 
014320 


014416 


014422 
014422 


12-MAR 


012702 
012705 
012704 
022225 
001002 
077403 
000502 
000505 
012702 
012703 
012704 
022225 
001002 
077403 
000545 


000504 


022716 
12 


011637 


014650 


014656 
014636 


014646 


014626 
014646 
000004 


014626 
014670 
000004 


014226 
014224 


062556 
014644 


062556 


001236 


N5: 


N7: 


N14: 


F 6 
ie a PAGE 56 


C MODE 3 
CMP RO. ANPAT20+2 
BEQ N12 
CMP RO, #NPAT20+10 
BNE 
BR NERR1 
CMP RO, ANPAT20-10 
BNE N 
BR NERR2 
CMP RO. #NPAT20 
BNE N14 
MOV #NDATOO,R2 
MOV #4R3 
CMP (R2)+,4#=1 
BNE N9 
SOB wo 
BR RR3 
MOV #NDATOO,R2 
MOV WNPAT2O, R3 
MOV 
CMP tRdd4, (R3)+ 
BNE N11 
SOB R4,N10 
BR NERR4 
BR NERRS 
MOV #NDATOO,R2 
MOV #NDATIO, *R3 
MOV R4 
CMP (RS)s, (R3)+ 
BNE 
SOB Na *NI3 
BR NDONE 
BR NERR6 


sWAS RO INCREMENTED 
:BY 2? 


sFSRC MODE 2? 


sFSRC MODE 4? 


sFSRC MODE 0? 


a 


sFSRC MODE 1 


DATA CORRECT? 


71F AN ODD ADDRESS TRAP OCCURS COME HERE 


NERRO: 


1$: 


NERR10: 


#N4 , (SP) 
NERR10 
#N3 , (SP) 
1$ 


@ACPSPUR _ 
-. RO,ANPAT20-2 


NERR11 
a4CPSPUR 


(SP) ,a#STMP2 


TO SEE IF THE FAILURE WAS IN THE FSRC 


:FSRC MODE 6 OR 7? 


;FSRC MODE 5? 


;WENT TO FSRC 
MODE 6 OR 7. 


SEQ 0070 


CJKDCB-A KEF11-A FP DIAG PART 1 
12-MAR-80 15:26 


CJKDCB.P11 


2997 


SecroreeceSRS 


sdudesesss 
WONOULSWN—O 


ts 


0144 


014 

014552 
014554 
014560 


014566 
014574 
014576 


014670 
014672 


022626 
104001 
000522 


011637 
0 


012737 
012737 
012737 


2 


000000 
000000 


052525 


177777 


010421 
021042 


001236 


000627 
000323 
000325 


000322 
000627 
000323 
014222 
000324 
000320 


014222 


014222 
014626 
014670 


052525 


MACY11 


052525 


30A(1052) 
T20 


NDATIO: . 
NDATI1: 


G 6 
12=MAR-80 15:31 PAGE 57 
FSRC MODE 3 TEST 
CMP (SP)+, (SP)+ 
ERROR 1 
BR NDONE 
: MOV (SP) ,a#$TMP2 —;:WENT TO FSRC 
CMP (SP) +, (SP) + “MODE 5. 
MOV #323, a4STMP7 
MOV 325. a#$TMP6 
ERROR 1 
MOV Moo. @#STMP6 =: FSRC _-MODE 2. 
: MOV #627 .ahSTMP5 
MOV 4355. SASTMP? 
V AAS TMP 
ERROR 
MOV #324 ,aASTHPG :FSRC MODE 4 
MOV #320. aaSTMP6 =F SRC MODE 0 
BR RR2O 
MOV #321. aWSTMP6  ;:FSRC MODE 1 
BR RR20 
MOV RO. a#STMP3 :RO NOT 
MOV #NPAT20+2 ,a4STMP4 : INCREMENTED 
MOV #N2, QASTMP2 :PROPERLY. 
ERROR 
BR NDONE 
=DATA FAILURE. 
MOV #N2, aASTMP2 
MOV #NDATOO, a#$TMP3 
MOV #NDATIO, a#STMP4 
ERROR 1 
BR NDONE 
-wORD 0 
0 
0 
0 
WORD 52525.52525,52525.52525 
.WORD  NDATI 
070707 
070707 
070707 
.WORD 1 
“WORD 2 
a7 
of 
WORD 010421 
021042 


FF 


SEQ 0071 


nn ELE 


————— 


H 6 
CJKDCB<-A4 KEF11-A FP DIAG PART 1 MACY11 308{ 105¢) 12-MAR-80 15:31 PAGE 58 
CJKDCB.P11 12=MAR-80 15:26 T20 FSRC MODE 3 TEST SEQ 0072 
3053 014674 031463 NDATI 2: 031463 
$028 014676 042104 NDATI3: 042104 
3056 014700 
3057 014700 104413 RSE TUP ':GO INITIALIZE THE FPS AND STACK; AND 
3058 SEE IF THE USER HAS ee aay 
3059 >THE DESIRE TO CHANGE THE SOF TWARE 
3060 “VIR TUAL CONSOLE SWITCH — (HAS 
3061 : THE USER TYPED CONTROL G?) 
3063 
3064 Se RE RRR EER EER EERE REE EEEER EEE AEERREREEH 
3065 : TEST 21 FSRC MODE 5 TEST 
3067 ce THIS IS A TEST OF FSRC MODE 5, AUTO DECREMENT 
3068 :* DEFERRED. 
3069 ; 
3070 
30771 SERRA EERE EERE AREA AER AERA A ERA ERA R ERR ER EES 
ap78 014702 000004 TST21: SCOPE 
3074 014704 O01: 
le 014704 170011 SETD :SET FD MODE 
3077 014706 012700 015564 MOV #OPAT10,RO 
3078 014712 172410 LDD (RO) ,ACO ;LOAD ACO WITH A 
3079 = DEFAULT PATTERN. 
3080 014714 012700 015352 MOV #OPAT21,R0 
3081 014720 005003 CLR R 
3082 014722 012737 015074 MOV MOERRO,a#ERRVEC ; IF A FAILURE 
3083 : OCCURS IN THE *SRC 
3084 :FLOWS AN ODD ADDR. 
3085 > TRAP TO 4 MAY OCCUR. 
3086 014730 172450 02: LDD a-(RO) ACO TEST INSTRUCTION 
3087 014732 005203 03: INC R3 
3088 014734 005203 04: INC R3 
3090 014736 012701 015332 MOV #ODATOO,R1 
tal 014742 174011 STD ACO, (R1) 3GET THE DATA 
3093 014744 020027 015350 CMP RO ,AOPAT20 sWAS RO DECREMENTED 
3094 014750 001436 BEQ 012 :BY 2? 
3096 014752 020027 015362 05: CMP RO,MOPAT21+10 ;FSRC MODE 2 
3097 014756 001001 BNE 06 
3098 014760 000505 BR OERR1 
3100 014762 020027 015342 06: CMP RO,AOPAT21-10 ;FSRC MODE 4? 
3101 014766 001001 BNE 07 
$ 4 014770 000517 BR OERR2 
3108 014772 020027 015352 07: CMP RO,AOPAT21 
31906 014776 012702 015534 MOV #ODATO1,R2 :FSRC MODE 0? 
3107 015002 012703 MOV #4 ,R3 
3108 015006 022227 177777 08: CMP (R2)+,#=1 


— 


I 6 
CUKOCB=-A KEF11-A FP DIAG PART 1 MACY11 ayes tone? 12-MAR-80 roi! PAGE 59 


CJKDCB.P11  12=MAR=80 15:26 FSRC MODE 5 TE SEQ 0073 
3109 015012 001002 BNE 09 

3110 015014 077304 SOB R3,08 

3111 015016 000510 BR OERR 

3113 015020 012702 015332 09: MOV #ODATOO,R2 =FSRC MODE 1? 
3114 015024 012703 015352 MOV HOPAT21_R3 

3115 015030 012704 000004 MOV #4 RG 

3116 015034 022223 010: CMP (R2)+, (R3)+ 

3117 015036 00100 BNE 011 

3118 015040 077403 SOB R4,010 

3119 015042 000502 BR OERR4G 

3121 015044 000505 011: BR OERRS 

3123 015046 012702 015332 012 MOV #HODATOO,R2 :DATA CORRECT? 
3124 015052 012703 015374 MOV HODATIO.R3 

3125 015056 012704 MOV #4 RG 

015062 022223 013: CMP (R2)+, (R3)+ 

3127 015064 001002 BNE 014 

3128 015066 077403 S08 R4,013 

3129 015070 000545 BR ODONE 

3131 015072 000504 014: BR OERR6 

3133 :IF AN ODD ADDRESS TRAP OCCURS COME 

3134 “HERE TO SEE IF THE FAILURE WAS IN THE 

3135 “FSRC FLOWS: 

3137 015074 022716 014734 OERRO: CMP #04, (SP) :FSRC MODE 6 OR 7? 
3138 015100 001412 BEQ OERR10 

3139 015102 022716 014732 CMP #03, (SP) 

3140 015106 001402 BEQ 1$ 

3141 015110 137 062556 JMP a¥CPSPUR 

3142 015114 27 015354 1$: CMP RO,MOPAT21+2  ;:FSRC MODE 3? 
3143 015120 001425 BEQ OERR1 

3144 015122 000137 062556 JMP a*CPSPUR 

3146 015126 OERR10: :WENT TO FSRC 
3147 015126 011637 001236 MOV (SP), a#STMP2  :MODE 6 OR 7 
3148 015132 022626 CMP (SP)+, (SP)+4 

3149 015134 104001 1$: ERROR 1 

3150 015136 000522 BR ODONE 

3152 015140 011637 001240 OERR11: MOV (SP) a#$TMP3 :WENT TO FSRC MODE 
3153 015144 022626 CMP (SP)+, (SP)+ 33 

3154 015146 012737 000627 001244 MOV #627 , @ASTMPS 

3155 015154 012737 000325 001250 MOV #325 ,aWSTMP7 

3156 015162 012737 000323 001246 MOV #323, aaST 

3157 015170 104001 1$: ERROR 1 

3158 015172 000504 BR ODONE 

3160 015174 012737 000322 001246 OERR1: MOV #322. aaSTMPC :FSRC MODE2 
3161 015202 012737 000627 001242 OERR20: MOV be * aASTMPS 

162 015210 012737 000325 001250 MOV #325 ,aaSTMP7 

3163 015216 012737 014730 001236 MOV #02, a#$STMP2 

3164 015224 104001 1$: ERROR 1 


CJUKDCB-A KEF11-A FP DIAG PART 1 
CJKDCB.P11 12-MAR-80 15:26 


J 6 
PAGE 60 


gee 
3167 
3 


015374 
015376 


015400 
015402 


015404 
015404 


012737 
012737 
012737 


r4 


015374 
707 


073567 
10 


0042 
114631 
125252 


104413 


000324 


014730 
015332 
015374 


052525 


MACY11 30A(1052) gba “MAR 80 15:31 
121 C MODE 5 TEST 
BR 
001246 OERR2: MOV #324, ar TH :FSRC MODE 4 
001246 OERRS: MOV #320 ,a#STMP6 :FSRC MODE 0 
BR OBRRO | 
001246 OERR4: MOV #321. a4STMP6 ;FSRC MODE 1 
BR OERR20 
OERRS: MOV RO, a#SIMP3 :RO NOT DECREMENTED 
001242 MOV HOPAT20,a4$TMP4 =PROPERLY 
001236 MOV #04, a#STMP2 
1$: ERROR 
ODONE 
OERR6 :DATA FAILURE 
1236 MOV #02. aaSTMP2 
001240 MOV #HODATOO, a#'$TMP3 
001242 MOV #ODAT 10. a#$TMP4 
1$: ERROR 1 
BR ODONE 
TOO: .WORD 0 
ODATO1 0 
ODATO 0 
ODATO 0 
052525 -WORD  52525,52525,52525 
OPAT20: .WORD ODATIO 
OPAT21: 070707 
OPAT22: 070707 
OPAT23: 07070 
OPAT24: 070707 
“WORD 1 
OPAT10: .WORD <1 
OPAT11 -1 
OPAT12 a=} 
OPAT13 «4 
ODATIO: .WORD 73567 
ODATI1 004210 
ODATI2 114631 
ODATI3 125252 
ODONE : 
RSETUP 


7GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 


; THE DESIRE TO CHANGE T 


HE SOF TWARE 
TUAL CONSOLE SWITCH REGISTER (HAS 


;VIR 
THE USER TYPED CONTROL G?). 


2 rrr TTT TTT TIT T TLC LLL Ache eee eR, 


S*TEST 22 


s* 
;* THIS IS A TEST OF FSRC MODE 6, 


FSRC MODE 6 TEST 
INDEX MODE 


SEQ 0074 


6 
CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR~80 15: is" * pace 61 


C)KDCB.P11 12=MAR=80 15:26 T22 FSRC MODE 6 TEST SEQ 0075 
3221 8 

322 s RRRRAAAeARAARARARAAAAEEEEERAAAEAAEAAR HAAR AHHH ER EREERA ERE A RS HS 
3383 015406 000004 TST22: SCOPE 

3225 015410 Pl: 

3226 015410 170011 SETD :SET FD MODE 

3338 015412 012700 016030 MOV #PPAT10.RO 

3229 015416 172410 LDD (RO) ,ACO : LOAD A DEFAULT PATTERN 
3331 015420 012737 015526 000004 MOV #PERRO, AWERRVECT > IF THE (BUT FSRC) FORO 
3232 :FAILS AN ODD ADDRESS TRAP 
3235 015426 012700 015577 MOV #PDAT10-241,RO :COULD OCCUR. 

3335 015432 172460 000241 P2: LDD 241(RO),ACO 

3236 015434 P3=P2+2 

3238 015436 012701 016050 P4: MOV #PDATOO,R 

3339 015442 174011 STD ACO. se *GET THE DATA 

3340 015444 012703 000004 MOV #4,R 

3341 015450 012702 016040 MOV #PDATIO,R2 

3342 015454 012701 016050 MOV #PDATOO,R 

3343 015460 022221 PS: CMP (R2)+, (R1)+ :CHECK THE DATA 

3344 015462 001007 BNE P6 

3345 015464 077303 S08 R3,P5 

3346 015466 022700 015577 CMP #PDATIO-241.RO ;:RO CORRECT? 

3247 015472 001401 BEQ 1$ 

3348 015474 000512 BR PERR21 

3249 015476 000137 016060 1$: MP @4PDONE 

3551 015502 012701 016050 P6: MOV #PDATOO,R1 

3352 015506 012703 000004 MOV #4,R 

3553 015512 022721 177777 P?: CMP #-1,(R1)+ :WAS IT FSRC MODE 0? 

3554 015516 001401 BEQ P8 

3255 015520 12 BR PERR1 

3556 015522 077305 P8: S0B R3,P7 

3257 015524 000523 BR PERR2 

3258 : TRAP TO HERE ON AN ODD ADDRESS 

3359 015526 021627 015434 PERRO: CMP (SP) .#P3 

3260 015532 001411 BEQ PERRI1 

3361 015534 021627 015436 CMP (SP) .AP4 :WAS IT FSRC MODE 7? 

3262 015540 001402 BEQ PERRIO 

3263 015542 000137 062556 JMP @FCPSPUR 


3265 015546 012737 000327 001246 PERRI0: MOV #327 ,@#STMP6 
3266 3 BR 


015554 00044 
3267 015556 022700 015577 PERR11: CMP #PDATIO-241,RO ;WAS IT FSRC MODE 1 
3268 015562 001004 BNE eon 
015564 012737 000321 001246 MOV #321 ,aASTMP6 
3270 015572 000434 BR PERR 
3271 015574 022700 015607 PERR12: CMP #PDAT gpl +10,R0 sWAS IT FSRC MODE 2 
3272 015600 001004 BNE 
3273 015602 012737 000322 001246 MOV #322 
3274 015610 000425 BR 
3275 015612 .022700 015601 PERR13: CMP #PDAT10-241+2,R0 :WAS IT FSRC MODE 3 
3276 015616 001004 BNE PERR14 


L 6 
CUKDCB=-A_KEF11-A FP DIAG PART 1 MACY11 S0AC1052) 12-MAR-80 15:31 PAGE 62 


CJKDCB.P11 12=MAR=80 15:26 T22 SRC MODE 6 TEST SEQ 0076 
3277, 015620 012737 000323 001246 MOV #323, a#STMP6 
3278 015626 000416 BR PERR 
3279 0156 022700 015567 PERR14: CMP #PDAT10=-241-10,R0 :WAS IT FSRC MODE 4 
3280 015634 901904 ‘ BNE PERK 
3281 01 012737 000324 001246 MOV #324, aASTMPS 
3282 015644 000407 BR PERR 
3283 015646 022700 015575 PERR15: CMP #PDAT10-241-2,R0 :WAS IT FSRC MODE 5 
3284 015652 001401 BEQ PERR16 
3385 015654 000416 BR PERRO 
3286 015656 012737 000325 001246 PERR16: MOV #325, aASTMP6 
3288 015664 012737 000627 001244 PERR17: MOV #627,a4STMP5 = ; REPORT FSRC 
3929 015672 012737 000326 001250 MOV #326.QMSTMP7 =: FLOWS FAILURE. 
3290 015700 011637 001236 MOV (SP) .a#STMP2 
3391 015704 022626 CMP (SP)4+, (SP)+ 
3392 015706 104001 1$: ERROR 1 
3295 015710 000463 BR PDONE 
3395 015712 011637 001236 PERR20: MOV (SP) a#$TMP2 § ;REPORT RO AFFECTED 
3296 015716 022626 CMP (SP) +, (SP) + 
3397 015720 000403 BR PERR22 
3598 015722 012737 015432 001236 PERR21: MOV #P2, AAS TMP2 
3299 015730 PERR22: 
3300 015730 010037 001240 MOV RO, aeSTMP3 
3301 015734 012737 015577 001242 MOV #PDAT10-241,a#STMP4 
3302 015742 104001 1$: ERROR 1 
3303 015744 000445 BR PDONE 
3306 015746 PERR1: :DATA FAILURE. 
3306 015746 012737 015432 001236 MOV #P2, aASTMP2 
3307 015754 012737 016040 001240 MOV #PDATIO, a#$STMP3 
3308 015762 012737 016050 001242 MOV #PDATOO, aS TMP 
3309 015770 104001 1$: ERROR 1 
3310 015772 000432 BR PDONE 
3312 015774 PERR2: :FSRC FAILURE TO 
3313 015774 012737 015432 001236 MOV #P2 aASTMP2 “MODE 0 
3314 016002 012737 000627 001244 MOV ? ,atSIMPS 
3315 016010 012737 000326 001250 MOV #326, a4STMP7 
3316 016016 012737 000320 001246 MOV #320, a#STMP6 
3317 016024 104001 1$: ERROR 1 
3318 0 000414 BR PDONE 
016030 177777 PPAT10: .WORD -1 
3321 016032 177777 PPAT11 -1 
3332 016034 177777 PPAT12 =] 
3323 016036 177777 PPAT13 ~1 
3325 016040 010421 PDATIO: .WORD 610421 
016042 031463 PDATI1 031463 
3327 01 052525 PDATI2: 052525 
3328 016046 073567 PDATI3: 073567 
3330 016050 000000 PDATOO: .WORD 0 
3331 016052 000000 PDATO?: 0 
3332 016054 000000 PDATO2: 0 


M 6 
PAGE 63 


CJKDCB=A KEF 11-4 FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 

CJKDCB.P11 12-MAR-80 15:26 T22 FSRC MODE 6 TEST 
seep 016056 000000 PDATO3: 0 
3335 016060 PDONE : 
33 016060 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
3337 + SEE IF THE USER HAS eT ant 
3338 ; THE DESIRE TO CHANGE THE SOFTWARE 
3339 VIRTUAL CONSOLE SWITCH — (HAS 
3340 * THE USER TYPED CONTROL G?) 
ss 
3343 Se EERE EERE EERE REE REREREEHEEEE 
sere : TEST 23 FSRC MODE 7 TEST 
3346 ee THIS !S A TEST OF FSRC MODE 7, INDEX 
3367 :* DEFERRED MODE. 
3349 SOIR ER RR IOI ROIS III I I ICICI I IOI IOICIOIIIOICIOR IIIT IIIT SRR ITER HHH 
seo0 016062 000004 TST23: SCOPE 
3352 016064 Qi: 
$etz 016064 170011 SETD 
3355 016066 012700 016520 MOV ey ae RO 
3356 016072 172410 LDD ;LOAD A DEFAULT 
3357 ;PATTERN i. ACO 
3358 016074 012737 016226 MOV cieak imag? THE (BUT FSRC) 
3359 7 FORK raiis AN 
3360 :O0DD ADR TRAP COULD 
3361 ; OCCUR 
3366 016102 012700 016267 MOV #OPAT 20-241 ,RO 
3364 016106 172470 000241 Q2: LDD @241(RO) ACO 
Saez 016110 Q3=02+2 
3367 016112 012701 016540 Q4: MOV #QDATOO,R1 
3368 016116 174011 STD ACO, (R15 :GET THE DATA 
3370 0161 012703 000004 MOV #4 ,R3 
3371 016124 012704 016540 MOV #QDATOO,R4S 
3372 016130 012705 016550 MOV #QDATIO,RS 
3373 016134 022425 Qs: CMP (R46) +, (R5)+ :CHECK THE DATA 
3374 016136 001007 BNE 
22 016140 0O 3 S08 R3,05 
3377 016142 022 016267 CMP MQPAT20-241.RO ;CHECK RO. 
3378 016146 001401 BEQ 1$ 
3379 016150 000514 BR QERR21 
30 016152 000137 016560 1$: JMP @*QD0NE 
3382 016156 012701 016540 Q6: MOV #QDATOO,R1 
3383 016162 012703 000004 MOV a4 
3384 016166 022721 177777 Q7: CMP #-1,(R1)+ :WAS IT FSRC MODE 0? 
3385 016172 001002 BNE Q8 
3386 016174 O S08 R3,07 
3387 016176 000513 BR QERR2 


_— ———— 


— 


SEQ 0077 


CJKDCB-A _KEF11-A FP DIAG PART 1 MACY11 SA (1052) 
~80 15:26 T23 


6 
ohf tee 5 15: 431 NPAGE 64 


CJKDCB.P11.  12=-MAR- € MODE 7 TEST 

3389 016200 012701 016530 Qs: MOV #QPAT20,R1 

3390 016204 01 708 016540 MOV #ODATOO.R2 

3391 016210 012703 000004 MOV #4 RS 

3392 016214 022122 Q9: CMP (R1)+,(R2)+ :WAS IT FSRC 6 

3393 016216 001401 BEQ a10 “OR DATA FAILURE 
3394 016220 000524 BR QERR1 

3395 016222 077304 Q10: SOB R3,09 

3396 016224 000504 BR QERR3 

3398 : TRAP TO HERE ON AN ODD ADR FAILURE 

3400 016226 021627 015434 QERRO: CMP (SP) ,#P3 

3401 016232 000137 062556 JMP a¥CPSPUR 

3208 016236 022700 016267 QERR11: CMP WOPAT20~241 .RO :WAS IT FSRC 

3404 016242 001004 BNE Q “MODE 1? 

3405 016244 012737 000321 001246 MOV #321. a#STMPS 

3406 016252 34 BR QERR 

3407 016254 022700 016277 QERR12: CMP #OPAT20-241+10,RO “WAS IT FSRC 
3408 016260 001004 BNE QERRT : 2? 

3409 016262 012737 000322 001246 MOV #322 

3410 016270 25 BR 

3411 016272 022700 016271 QERR13: CMP #OPAT20-241+2,R0 :WAS I7 FSRC 
3412 016276 001004 BNE QeRR14 :MODE 3? 

341% 016300 012737 000323 001246 MOV #323, aeSTMP6 

3414 ° 016306 16 BR QERR 

3415 016310 022700 016257 QERR14: -CMP WOPAT20-241-10,RO :WAS IT FSRC 
3416 016314 001004 2NE GER? : 4 

3417 016316 012737 000324 001246 MOV #326 arSTHPS 

3418 16324 07 BR QERRI 

3420 016326 022700 016265 QERR15: CMP #OPAT20-241-2,R0 :WAS IT FSRC 
3421 016332 001401 BEQ QERR16 :MODE 5 

3422 016334 16 BR QERR20 

3404 016336 012737 000325 001246 QERR16: MOV #325 ,aNSTMPS 

3426 016344 012737 001244 QERR17. ~v 7.aNSTMPS § :REPORT FSRC FAILURE 
3427 016352 012737 000327 (71250 Wes 7,an$ 

3428 016360 011637 001236 mV (SP). aeSTMP2 

3429 016364 022626 | CMP (SP)+, (SP)+ 

3430 016366 1S: ERROR 1 

3431 016370 BR QDONE 

3433 016372 011637 001236 QERR20: MOV (SP). a#STMP2 § ;REPORT RO AFFECTED. 
3434 016376 022626 CMP (Sp) (SP) + 

3435 016400 000403 BR RR22 

343% 016402 012737 016106 001236 QERR21: MOV rey aaSTMP2 

3437 016410 QERR22: 

3438 016410 010037 001240 MOV RO, a#STMP3 

3439 016414 012737 016267 001242 MOV HOPAT 20-241 , aS TMP4 

3440 016422 104001 1$: ERROR 1 

3441 016424 55 BR QDONE 

3443 016426 012737 000320 001246 QERR2: MOV #320. a#$TMP6 =; WENT TO FSRC 

3444 016434 000403 BR QERRG “MODE 0 


SEQ 0078 


ali Ti 


B 7 
CIKDCB-A KEF1'~A FP DIAG PART 1 MACYT1 30A(1052)_ 12-MAR-8O 15:31 PAGE 65 | 
12 15:26 123 TEST 


CJKDCB.P11 SEQ 0079 





FSRE 
5 016436 012737 000326 001246 QERRS: MOV #326 ,@ASTMP6 a je FSRC 
7 016444 012737 000627 001244 QERR4: MOV #627 ,@ASTMPS 
O04 26 012737 7 001250 MOV #327 ,@ASTMP7 
01 012737 016106 001236 MOV #02,a4STMP2 
50 S978 104001 1$ ERROR 
4 016470 000435 BR QDONE 
23 01647 QERR1 :DATA FAILURE 
54 016472 012737 016106 001256 #02 ,a#STMP2 
55 016 01 ele 016550 001240 MOV #ODAT IO, a#$TMP3 
2$ 16506 012737 016540 001242 MOV #QDATOO ,aa'$TMP4 
57 016514 104001 1$ ERROR 1 
of: 016516 000420 BR QDONE 
3460 016520 177777 QPAT10: .WORD -1 
1 016522 177777 QPAT11 -1 
016524 177777 QPAT1 -1 
016526 177777 QPAT13 -1 
3465 016530 016550 QPAT20: .WORD QDATIO 
93 016532 052525 QPAT21: 52525 
3467 016534 052525 QPAT22: 52525 
yp 016536 052525 QPAT23: 52525 
3470 016540 000000 QDATOO: .WORD 0 
347; 016542 000000 QDATO1: 0 
3472 016544 000000 QDATO2: 0 
a7 01654€ 000000 QDATOS: 0 
3475 016550 073567 QDATIO: .WORD 073567 
3476 016552 052525 QDATI1: .WORD 052525 
3477 016554 031463 QDATI2: .WORD 031463 
50 016556 010421 QDATI3: .WORD 010421 
3480 016560 QDONE : 
3481 016560 104413 RSETUP - GO INITIALIZE THE FPS AND STACK; AND 
3482 7SEE IF THE USER HAS EXPRESSED 
3485 ; THE DESIRE TO CHANGE THE SOFTWARE 
3484 sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
See :THE USER TYPED CONTROL G?). 
3487 SERRA EERE REAR EERE EEEER ARERR RRR ERR ERE RRR ERR ARERR RS 
3488 “STEST 24 (BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 
: 2% 
3490 :* LOAD INSTRUCTION FLOWS. 
3491 >* EACH OF THE PATTERNS: 
3492 0 
34953 ; +NUM 
3494 -NUM 
3495 -0 
3496 S LOADED TWICE, ONCE WITH AC>0 Lg 


é 
H AC=0. AFTER EACH LOAD THE FPS IS 
CHECK TO INSURE THAT CONTROL WAS PASSED 
THROUGH WITH THE FORKS PROPERLY. 


< 
> 


a Ss 2 Se 
eg ale gee by 


¥ 
© 
™~w 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 = 


CJKDCB.P11 12-MAR~80 15:26 
3501 
3502 016562 
3503 016564 005037 017662 
3504 016570 als 017612 
3505 016574 012701 000004 
3506 016600 012720 177777 
bt 016604 077103 
3509 016606 012737 900033 
3510 016614 012737 000023 
3511 pieeee 012737 017342 
3512 01 
35135 016630 104414 
3514 016632 0127 000200 
3515 016636 1701 
3516 016640 Ole 017612 
3517 016644 172410 
3518 016646 013737 017664 
3519 016654 012737 000001 
se59 01 012727 000254 
3522 016670 012700 017622 
3523 016674 172410 
3524 016676 010037 001252 
3252 016702 012737 016674 
3527 016710 012704 000204 
3528 016714 170205 
3529 
3530 016716 0204C5 
3531 016720 001402 
3532 016722 000137 017366 
3535 
3534 016726 
3535 016726 104414 
3536 016730 012700 000200 
3236 016734 170100 
3539 6736 012700 017612 
3540 016742 172410 
3541 016744 013737 017666 
3542 016752 012737 000005 
S07 016760 012737 000054 
a4 016766 012700 017632 
3547 016772 172410 
3548 016774 010037 001252 
3549 7000 012737 016772 
3550 017006 012704 000200 
322) 017012 170205 
3553 017014 020405 
3554 017016 001402 
3555 017020 000137 017452 
35 017024 


017670 
017672 
017674 


001236 


017670 
017672 
017674 


001236 


18124: 


U1: 


U2: 


U3: 


US: 


ee 
12-MAR-80 15:31 PAGE 66 


(BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


se RR AERA AAAARARAAAAERERAEE RAE AAREREEAAAERAERAAR RARER REE REED 





@4UF LAG 

#UPATOO,RO 

#4,R1 

#-1, (RO)+ 

R1,U0 

#033 .@4UTMP | 
23,a4UTMP2 

MUERRO , @4F PVECT 


#001, 
#254 , @AUROMS 
hel 


ACO 


RO OBHSTMP10 


+ 
@AUERR1 


#U2 , aASTMP2 
#204,R4 
RS 


#200 ,RO0 
RO 


AUPATOO 
(RO) 


7003. 





#054, 





OO) ACO con 


#UPAT 20 ,RO 


(RO) ,ACO 
RO, afSTMP10 
#4, aASTMP2 
#200,R4 


R4.R5 


U 
QAUERR2 


;SET UP AC#O DATA. 


IN CASE (BUT FIUV FAILS) 
;SET UP THE LOOP ON ERROR ADDRESS. 


sLOAD ACO 


;LOAD 0 INTO ACO 


:SEE IF FPS IS CORRECT 


;SET UP THE LOOP ON ERROR ADDRESS. 


sLOAD ACO 


;LOAD A POSITIVE NUMBER 
SINTO A ACO 


FPS CORRECT? 


SEQ 0080 


CJKDCB-A KEF11-A FP DIAG PART 1 
12-MAR~-80 15:26 


CJKDCB.P11 


3557 


aietakal 


YW 
SERFSESEVSRUNG BVO 


ame aed ed etd 
— 
P 


017274 
017302 


017306 
017310 
017314 


012700 
172410 


000200 
017612 


017452 


000200 
017612 


017536 
004200 


017612 


MACY11 


017670 
017672 
017674 


001236 


017670 
017672 
017674 


007236 


000244 


30A(1052) 
T24 


U?: 


Ul: 


U13: 


U14: 


U10: 


12-MAR~-80 





Dd 7 
15:31 PAGE 


67 
(BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


“i 
“3 


B SSSSRo8s & 


SET UP THE LOOP ON ERROR ADDRESS. 


;LOAD ACO 


,aFUR 
#056, a#UROMS 
#UPAT30,RO s LOAD A NEGATIUE 


(RO) ,ACO 
RO. a#STMP10 
HUG, a#STMP2 
#210,R4 

R5 

R4 RS 

U7 

QAUERR2 


FPS CORRECT 


SET UP THE LOOP ON ERROR ADDRESS. 


;LOAD ACO 





;LOAD -0 INTO ACO 


(RO) ,AC 
; TRAP FROM HERE IF 


RO, a#STMP10 

#ui0,aaSTMP2 =; (BUT FIUV) FAULS! 
#214,R6 “SEE IF FPS IS CORRECT. 
R4_RS 

12 

arue 


ALL THE PATTERNS 

sHAVE BEEN TEST WITH 

BOTH AC NOT EQUAL TO O AND AC=0 
sIF NOT GO BAC 


#UPATOO .RO K AND 
ay :CHECK THEM WITH AC=0 


THE LOOP ON ERROR ADDRESS. 


LPERR ;SET UP 
:NOW SEE IF A TRAP CAN BE FORCED BY SETTING FIUV AND LOADING -0 
MOV AMUERR3 ar 


MOV 
LDFPS 
MOV 


LDD 


Ld 


#4200 ,,RO 


R 
HUPATOO, RO 
(RO) ,ACO 


:SET FD AND FIUV 
SET UP ACO 


. 
PAGE 6 





CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 spat 03<) 12-MAR-80 15:31 8 
C)KDCB.P11.  12=MAR=-80 15:26 T24 (BUT EZBT Y8), (BUT ENBT) AND (BUT FluV) TEST SEQ 0082 
%13 017316 012700 017652 MOV #PATAO RO :LOAD -0 
314 017322 172410 U15: LOD »,AcO “SHOULD TRAP TO 244 
%15 017324 17 ul6: CFCC 

%16 017 4 NOP 

%17 017330 012737 017322 001236 MOV #U15,a#STMP2 —  ;REPORT ERROR. 
3618 “DIDN'T TRAP 
319 017336 104001 1$: ERROR 1 “(BUT FIUV) FAILED. 
3620 017340 556 BR UDONE 

3e00 TRAPPED TO 244. DID (BUT FIUV) FAIL? 

323 017342 021627 017170 O: CMP (SP) ,#U11 

324 017346 001402 BEQ 

325 017350 000137 062524 JMP awF PSPUR 

326 017354 011637 001236 1$: MOV (SP) ,a#STMP2 

%27 017360 022626 CMP (SP)+, (SP)+ 

3628 017362 104001 2$: ERROR 1 

3609 017364 000544 UDONE 

363) =COME HERE TO ANALYZE FPS ERRORS 

333 017366 032705 000004 UERR1: BIT #4.R5 

%34 017372 001432 Q RR20 

335 017374 012737 000443 001244 UERRIO: MOV #443, QASTMPS 

336 017402 013703 017674 MOV 3 

3637 017 010337 001250 MOV R3. a#SIMP7 

%38 017412 032703 000 BIT #200 ,R3 

%39 017416 001403 BEQ 1$ 

3640 017420 042703 000200 BIC #200,R3 

3641 017424 000402 BR 2$ 

3642 017426 052703 000 1$: BIS #200,R3 

3643 017432 010337 001246 2$: MOV R3, avSTMP6 

3644 017436 010537 001240 UERR11: MOV 25. axSTMPS 

3645 017442 010437 001242 MOV 4 aeSTMPS 

3646 017446 104001 1$: ERROR 

347 017450 000512 BR 

348 017452 032705 000004 UERR2: BIT 

3649 017456 001746 BEQ 

%50 017460 013737 017670 001244 UERR20: MOV 

3651 017466 013703 017672 MOV 

3652 017472 010337 001250 MOV 

353 017476 032703 000400 BIT 

3654 017502 001403 BEQ 

3655 01 2703 000400 BIC 

3656 017510 02 BR 

3657 017512 052703 000400 1$: BIS 

3658 017516 010337 001246 2$: MOV 

3659 017522 010537 001240 UERR21: MOV 

3660 017526 010437 001242 MOV RG aASTMPS 

%661 017532 104001 1$: ERROR 1 

5o02 017534 BR UDONE 

3664 INTERRUPT HERE WHEN FIUV SET AND ATTEMPTED TO LOAD-0 
3665 017536 021627 017324 : CMP (SP) ,#U16 

3666 017542 001402 BEQ 

3667 017544 000137 062524 JMP a#FPSPUR 

3668 017550 022626 1$: CMP (SP) +, (SP)+ 


CJKDCB-A_KEF11~A FP D 


CJKDCB.P11 


017652 
017654 


017676 


017676 
017700 
017700 
017702 


12-MAR~ 


000014 


000004 


104414 
012700 000200 


a er mn rerinemnl Re NRRL 
— 


eS 
Ane PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 69 
15:26 T24 


(BUT EZBT Y8),(BUT ENBT) AND (BUT FIUV) TEST 


CLR RO 
STST RO sGET FEC. 
CMP #14,R0 : CORRECT 
- UERR4S 
UERRS: MOV #U15 ,a#ETMP2 
MOV #12, a4STMP4 
MOV RO, a#STMP 
1$ ERROR 
BR UDONE 
UPATOO: .WORD 0 
UPATO1: 0 
UPATO2 0 
UPATO3 0 
UPAT10: .WORD 0 30 
UPAT11: 0 
UPAT12: 0 
UPAT13: 0 
UPAT20: .WORD 010421 :POS NUM 
UPAT21: 114631 
UPAT22 125252 
UPAT23 177777 
UPAT30 114631 7NEG NUM 
UPAT31 135675 
UPAT32 146314 
UPAT33 167356 
UPAT4O 100000 :NEG ZERO 
UPAT41 0 
UPAT42 0 
UPAT43 0 
UFLAG: .WORD 0 
UTMP1: 0 
UTMP2: 0 
UROM1 : 0 
UROM2 : 0 
UROM3 : 0 
UDONE : 


KERR EEAREEERERERAEEERERERERAEERAEREREEEEARAEERERAAKAARERAER 


S*TEST 25 ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 


* 

-* THIS IS A TEST OF ADD AND SUB WITH FSRC=AC=0 

we 

LEAR AREER REAR ERR RAR AREA AAA R RARER AERA AAA ALLA RRS LS RSS 
Vaal SCOPE 


LPERR 
MOV #200,R0 


;SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0083 


CJKDCB-A_KEF11-A FP D 
12-MAR= 


CJKDCB.P11 


012737 
010537 


104002 
000524 
104414 


020364 
017730 
020364 


001236 


001242 


007 236 


001242 


IAG PART 1 MACY11 30A(1052) 
80 15:26 T25 


We: 


1$: 


1$: 
WS: 


Ww10: 


1$: 
Wii: 


G 
12-MAR-80 15:31 
ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST 
LDFPS RO :SET DOUBLE MODE 
MOV #WPATOO,RO “LOAD ACO=: 
LOD (RO) ,ACO 
MOV aN$T :SAVE FP INSTRUCTION 
MOV #WPATOO,RO 3 
ADDD _— (RO) ,ACO : TEST INSTRUCTION. ADD ITSELF 
STFPS :GET FPS 
SETD “SET DOUBLE MODE 
MOV #WPATOO,RO 
STD ACO, (RO) :GET THE RESULT 
MOV #WPATOO,R1 
MOV #4 .R2 
CMP (RO)+,(R1)+ :1S RESULT CORRECT 
BEQ W4 
:NO 
ERROR 2 
JMP aAWDONE 
SOB R2,W3 
CMP #206 ,R5 :1S FPS CORRECT 
BEQ w5 
NO 
MOV #204, a#STMPS 
MOV R5 a#STMP3 
ERROR 1 
JMP a@twDONE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
V #200,R0 
LDFPS RO :SET DOUBLE MODE 
MOV MWPATOO RO “LOAD ACO=0 
LOD (RO) ,.1C6 
MOV #6, 
CLR RO 
LDFPS RO :GO TO FLOATING MODE 
#WPATOO.#O 
ADDF (RO) ,ACO = TEST INSTRUCTION 
STFPS RS “GET FPS 
SETD “RESET TO DOUBLE MODE 
MOV ATOO 
STD ACO, (ROS -GET THE RESULT 
MOV ATOO,R1 
MOV #4.R2 
CMP (RO)+, (R1)+ :WAS THE RESULT 
BEQ wi0 “NO. REPORT FAILURE. 
ERROR 
BR WDONE 
SOB R2,W7 
CMP #4 _R5 :WAS FPS CORRECT 
BEQ wii 
: INCORRECT FPS. 
MOV #4 ,QASTMPS 
MOV R5,. a4STMPS3 
ERROR 2 
BR WDONE 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 


7 
PAGE 70 


S} “a at Be 


ee 


CJKDCB-A KEF11-A FP DIAG PAR 
12-MAR~80 15:2 


CJKDCB.P11 


000200 
020364 
020164 
020364 


020364 
020364 
000004 


000204 
000204 
001240 


000200 
020364 
020302 


0203564 


001236 


001242 


001236 


T 1 MACY11 30A(1052) 
6 T25 


Ww15: 


Ww16: 


fal 
12-MAR-80 15:31 
ADDF .ADDD, SUBF AND SUBD WITH FSRC=AC=0 TEST 
MOV #200,R0 
LDFPS R :SET DOUBLE MODE 
MOV #WPATOO,RO “LOAD ACO=0 
LDD (RO) ,ACO 
MOV #12. aaSTMP2 
MOV #WPATOO RO 
SUBD _—«- (RO) , ACO : TEST INSTRUCTION 
STFPS RS “GET FPS 
SETD “SET DOUBLE MODE 
MOV #WPATOO,RO 
STD ACO, (ROS :GET THE RESULT 
MOV #aPATOO, 
MOV #4 R2 
CMP (RO)+, (R1)+ :1S RESULT CORRECT? 
BEOQ wd 
NO. 
ERROR 
BR WDONE 
S08 R2.W13 
CMP #204 ,R5 -1S FPS CORRECT? 
BEQ w15 i 
MOV #204, aNSTMP4 
MOV R5, aeSTMP3 
ERROR 1 
WDONE 
LPERR 
#200,RO 
LDFPS RO :SET DOUBLE MODE 
MOV #WPATOO.RO “LOAD ACO=0 
LDD (RO) ,ACO 
MOV #16, aASTMP2 
CLR RO 
LDFPS RO :ENTER FLOATING MODE. 
#WPATOO,RO 
UBF (RO) ACO -TEST INSTRUCTION. 
STFPS RS “GET FPS 


7 
PAGE 71 


SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0085 


| 2 
CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 72 


CJKDCB.P11.  12=MAR-80 15:26 T25 ADDF ,ADDD,SUBF AND SUBD WITH FSRC=AC=0 TEST SEQ 0086 

3819 020306 170011 SETD :RESET TO DOUBLE MODE 

3820 020310 012700 020364 MOV #WPATOO,RO “GET THE RESULT. 

3821 314 174010 STD ACO, (RO) 

3822 16 912701 020364 MOV #UPATOO RI | 

382 2 012702 000004 MOV #4 .R2 

3824 022021 wi7: CMP (RO) *. (R1)+ :1S RESULT CORRECT? 

3855 0 001402 BEQ w20 

3826 3NO. 

3827 020332 10400 1$: ERROR 

3828 334 00042 BR WDON 

36) 336 077205 w20: SOB R2,W17 
020340 022705 000004 CMP #4,R5 :1S FPS CORRECT? 

sats 020 001417 | BEQ WDONE - 

3BZZ_ 20346 012737 000004 001242 MOV #4, BASTMPG 

3834 020354 010537 001240 MOV RS, "aASTMPS 

3835 020360 104001 1$: ERROR 

ts. 020362 000410 BR WDONE 

3838 020364 000000 WPATOO: .WORD 0 

3839 000000 wPATO1 0 

3840 020370 000000 wPATO2 0 

tae. 020372 000000 WPATOS 0 

3843 020374 000000 .WORD 0 

3844 020376 000000 WwDATO1 0 

3845 000000 WDATO2 0 

3846 020402 000000 WDATO3 0 

3848 020404 WDONE : 

3849 020404 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 

3850 “SEE IF THE USER HAS EXPRESSED 

3851 THE DESIRE TO CHANGE THE SOF TWARE 

3852 ;VIRTUAL CONSOLE SWITCH REGISTER (HAS 

3853 “THE USER TYPED CONTROL G?) 

as 

3856 FERRARA REAR REAAREAE AER AA AAR AA AREAE REAR AREER ARERR LEAR E EES 

3857 : TEST 26 ADDD AND SUB WITH FSRC=0 

3859 is THIS IS A TEST OF ADD AND SUB WITH FSRC-0. 

3861 i 

3862 <z EEA ARAAAAAARAEEAARERAERAEAARRARERRE . SEEEERARARRARARERAEARAARER 

3863 020406 000004 TS $126: SCOPE 

3864 020410 x7 

3865 020410 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
020412 012700 000200 MOV #200,RO 

3867 020416 170100 LDFPS :SET DOUBLE MODE 

3868 020420 012700 021150 MOV #XPATOO,RO “SET ACO TO POSITIVE 

3869 020424 010037 021136 MOV ~ RO, a@AXTMP “NUMBER #0 

3870 020430 172410 LDD (RO) ,ACO 

3871 020432 012737 020444 001236 MOV #X2, aASTMP2 

3872 020440 012700 021160 MOV #XPAT10,RO :FSRC=0 

3873 020444 172010 2: ADDD  {RO),ACO “TEST INSTRUCTION 

3874 020446 170205 STFPS RS 


CJKDCB-A _ KEF11~-A FP DIAG 
12-MAR-80 


CJKOCB.P11 
3875 020450 
3876 020452 
a6 020456 
3879 Do0ce4 
3880 70 
3881 72 
3882 74 
3883 76 
3884 


3885 


PEEEEEELEER ERPS ESE RELL 1 


seqgseges 


3930 


SESSSESNESS 


021140 
021150 
000004 


000200 
021106 


000200 
021170 
021136 


020550 
021160 


021140 
021170 
000004 


000210 


000200 


021150 
021136 


020652 
021160 


021140 
021150 
000004 


001236 


001236 


PART 1 MACY11 30A(1052) 
15:26 726 


x3: 


x4: 


x5: 


x6: 


X7: 


x10: 


X11: 


X12: 


X13: 


Jj 7@ 
-MAR-80 15:31 PAGE 73 


12 
ADDD AND SUB WITH FSRC=0 


#XDATOO,RO 
ACO, (ROS 
#XPATOO,R1 
#4 R 
(RO)+,(R1)+ 
x4 

RO KS 
#200,R4 
R4 RS 
@AXERR2 


ia 
#XPAT20,RO 
a*XxTMP 


RO 

(RO) ,ACO 
#X6, ANS TMP2 
#XPAT10,RO 
RO) ,ACO 


RO 
#XPATOO,RO 
RO, @aX TMP 
(RO) ,ACO 
aXt2 
#XPAT10,RO 
(RO) .ACO 


#XDATOO, RO 
ACO, (RO) 
#XPATOO,R1 
#4,R 
(RO) +, (R1)+ 
x14 


XERR3 


aASTMP2 


;GET RESULT. 


31S RESULT CORRECT? 


31S FPS CORRECT? 


;SET UP THE LOOP ON ERROR ADDRESS. 


:SET DOUBLE MODE 
:SET ACO TO 
:NEGATIVE NUMBER 


7 FSRC=0 
:TEST INSTRUCTION 


sGET RESULT 


71S RESULT CORRECT? 


:1S FPS CORRECT? 

SET UP THE LOOP ON ERROR ADDRESS. 
SET DOUBLE MODE 

> SET Ai NON-ZERO 


POSITIVE NUMBER 


sFSRC=0 
:TEST INSTRUCTION 


:GET RESULT 


31S RESULT CORRECT? 


SEQ 0087 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 SAC 105<) | 
CJKDCB.P11 12-MAR~80 15:26 T26 


3931 020704 077204 X14: 
39 706 012704 000200 

39 712 O 

3934 020714 001401 

3935 020716 000501 

3936 020 x15: 
3937 0207 104414 

3938 020722 012700 000200 

3939 020726 170100 

3940 oe 012700 021170 

3941 734 010037 021136 

3942 020740 172410 

3943 020742 012737 020754 001236 

3344 020 o18Ne 021160 

3945 020754 173010 X16: 
3946 020 170205 

3947 020760 170011 

3948 020762 012700 021140 

3949 020766 174010 

3950 020770 012701 021170 

3951 020774 012702 000004 

3952 021000 022021 X17: 
3953 021002 001401 

3954 021004 2 

3955 021006 077204 x20: 
3956 021010 012704 000210 

3957 021014 0 

3958 021016 001401 

3959 1020 

3960 021022 X21 
3961 

3962 :REPORT 
3963 

3964 021024 012737 021160 001240 XERRI 
3965 021032 013737 021136 001242 

3966 021040 012737 021140 001244 

3967 021046 104001 1$ 
3968 021050 53 

3969 021052 012737 021160 001240 XERRS3 
3970 021060 013737 021136 001242 

3971 021 012737 021140 001244 

3972 021074 013737 021136 001246 

3973 021 104002 1$ 
3974 021104 35 

3975 

3976 ;REPORT 
3977 

3978 021106 XERR2 
3979 021106 010537 001240 

3980 021112 010437 001242 

3981 021116 104001 1$: 
3982 021120 000427 

3983 021122 XERRS 
3984 021122 010537 001240 

3985 021126 


010437 001242 
104001 


§ 
© 
N 
— 
_ 
Ww 
N 
= 
wv 


7 
Oe ey 15:31 * PAGE 74 
D AND SUB WITH FSRC=0 


MOV #900 R4 :1S FPS CORRECT? 
CMP R5 

BEQ Rage 

BR XERRG 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #200,RO 

LDFPS R :SET DOUBLE MODE 
MOV #XPAT20,RO “SET ACO=A NEGATIVE 
MOV RO, a#X TMP “NUMBER 

LDD (RO) ACO 

MOV #X16. aASTMP2 

MOV #XPAT10,RO :FSRC=0 

SUBD —« (RO) ,ACO “TEST INSTRUCTION. 
STFPS RS 

SETD 

MOV #XDATOO,RO :GET RESULT 

STD ACO, (ROS 

MOV #XPAT20,R1 

MOV #4.R 

CMP (RO) +, (R1)+ :I1S RESULT CORRECT? 
BEQ X20 

BR ERR3 

508 R2,X17 

MOV #210. RS 21S FPS CORRECT? 
CMP R4.R5 

BEQ x24 

BR XERRG 

BR 

DATA ERRORS 

MOV #XPAT10 aaSIMP3 

MOV @AXTMP , a#STMPS 

MOV AXDATOO aa STMPS 

ERROR 1 

BR XDONE 

MOV #XPAT10 ae STMP3 

MOV BAXTMP ae IMPS 

MOV #XDATOO, av STMPS 

MOV @AXTMP , BAS TMP 

ERROR 2 

BR XDONE 

FPS ERRORS 

MOV RS, a4STMP3 

MOV 4° aeSTMP4 

ERROR Rs 

BR XDONE 

MOV R5, aaSTMP3 

MOV RG aASTMPG 

ERROR 1 


2,X13 


SEQ 0088 


a 


ee 
PAGE 75 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 spat Woe) Mees py 15:31 
CJKDCB.P11 12-MAR-80 15:26 T26 D AND SUB WITH FSRC=0 
3987 021134 000421 BR XDONE 
3988 1136 000000 XTMP : .WORD 0 
3989 t140 000000 XDATOO: .WORD Q 
3990 1142 000000 XDATO1 0 
3991 021144 000000 XDATO 0 
35 021146 000000 XDATO 0 
3994 021150 010421 XPATOO: .WORD 010421 
3995 021152 021042 XPATOQ1 061086 
3996 021154 031463 XPATO2: 031463 
3997 021156 042104 XPATOS: 042104 
3999 021160 000000 XPAT10: .WORD 0 
4000 021162 000000 XAPT11: 0 
4001 021164 000000 XPAT12 0 
4002 021166 000000 XPAT13 0 
4003 021170 104210 XPAT20: .WORD 104210 
4004 021172 114631 XPAT21 114631 
4005 021174 125252 XPAT22: 125252 
ne 021176 135673 XPAT23: 135673 
4008 021200 XDONE 
4009 021200 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
4010 : SEE IF THE USER HAS EXPRESSED 
4011 : THE DESIRE TO CHANGE THE SOF TWARE 
4012 >VIRTUAL CONSOLE SWITCH — (HAS 
re at = THE USER TYPED CONTROL G?) 
4015 FERRARA RARER ERA RE ERA AA ARE REAE RARER EA ARRERARAERAE RARER ES 
pr dt ssTEST 27 SUBD WITH AC=0 TEST 
4018 a. THIS IS A TEST OF SUBD WITH AC=0. BOTH POSITIVE 
4019 :* AND NEGATIVE FSRC°S ARE TRIED. 
4020 o* 
4021 
4022 sRRARAREERAERAER RARER REAR ERE RA ARARA RARER ARERR AAA R ER ARERR EES 
4023 021202 18127: sc 
4024 1204 005037 0215 CLR avYFLA 
4025 021210 012737 021554 021536 MOV OyPATOO, aryTMP) 4 
4026 021216 012737 021 021540 MOV #YPAT10, ANY TMP2 iN 
4027 021224 012737 000210 021542 MOV #210, a#YTMP3 
4028 021232 Y1: 
4029 021232 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4030 021234 012700 000200 MOV #200 RO 
4031 021240 170100 LDFPS RO 7SET DOUBLE MODE 
4032 021242 012700 021574 MOV #YPAT20,RO =SET ACO=0 
4033 021246 172410 LDD ACO 
4034 021250 013700 021536 MOV ary TAr' AR 
4035 021254 173010 v2: SUBD acon : TEST INSTRUCTION 
4036 021256 170205 STFPS 
4037 021260 170011 SETD 
4038 021262 012700 021544 MOV #YDATOO,RO sGET RESULT 
4039 021266 174010 STD ACO, (ROS 
4040 1270 012702 000004 MOV »R2 
4041 021274 013701 021540 MOV a*YTMP2,R1 sCHECK RESULT. 
4042 1300 022021 Y3: CMP (RO)+, (R1)+ 


SEQ 0089 


CJKDCB-A KEF11-A FP DIAG PART 1 
12-MAR~80 15:26 


CJKDCB.P11 


021552 
021554 
021556 
021560 


021542 


021534 
177777 
02 


1564 
021554 
000200 


000004 
021536 
021544 


021254 
0 
021540 


021254 
021536 
021574 


021544 
021540 


021254 
001240 
021542 


MACY11 30A(1052) 
T27 


Y4: 


YS: 


Y6: 


Y7: 


YERR1: 


1$: 
YERR2: 


YERR3S: 


YDATOS: 


YPATOO: 
YPATO1: 
YPATO2: 


mM 7 
12-MAR-80 15:31 PAGE 76 
SUBD WITH AC=0 TEST 





Y6 

R2,Y3 
a#YTMP3 ,R5 
Y4 


;FPS CORRECT? 


FINISHED TEST? 


;D1D XOR OF SIGN BIT 
sFAIL? 


:DATA FAILURE 


:XOR OF SIGN BIT 
AILED 


:FPS WRONG. 
#Y2 ,QASTMP2 
RS, aNSTMPS 


4 oCOoOoOoO OOOO 


Oo 
au 
NOMIWG 
~ La 
ons 
Wor 


SEQ 0090 


7 
CJKDCB-A KEF11=A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 "PAGE 77 


CJKDCB.P11 12=MAR-80 15:26 127 SUBD WITH AC=0 TEST SEQ 0091 

4099 021562 167356 YPATO3: 167356 
4101 021564 163146 YPAT10: 163146 
41 1566 052525 YPAT11: 052525 
410 1570 042104 YPAT12: 042104 
610% 021572 167356 YPAT13: 167356 
4106 021574 000000 YPAT20: 0 
4107 021576 000000 YPATO1: 0 
4108 021600 000000 YPAT22: 0 
4109 021602 000000 YPATO3: 0 
4111 021604 YDONE : 
4112 021604 104413 RSETUP 60 INITIALIZE THE FPS AND STACK; AND 

113 i SEE IF THE USER HAS EXPRESSED 
4114 “THE DESIRE 10 CHANGE THE SOFTWARE 
4115 “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
4116 “THE USER TYPED CONTROL G?) 

117 SEES IE IES IEIEISIII II IORI OID II ISITE IIT I IAAI 
4118 “*TEST 30 ADDD WITH AC=0 TEST 
4119 
41 
4121 :a 
4122 :@ THIS IS_A TEST OF ADDD WITH AC=0. BOTH 
4123 “® POSITIVE AND NEGATIVE FSRC'S ARE TRIED. 

** 

4125 
rey 23 SRA AREER EERE RE RERERERRA RARER RE REREEERERE AREER ERRRRER EES 
4127 021606 000004 ST30: SCOPE 
4128 021610 005067 000224 CLR ZFLAG 
4129 021614 012737 022056 022042 MOV #ZPATOO, @#ZTMP1 :P 
4130 021622 012737 000200 022044 se MOV #200, a#ZTMP2 
4132 021630 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4123 021632 012700 000200 MOV #200,RO 
4134 021636 170100 LDFPS RO :SET DOUBLE MODE 
4135 021640 012700 022076 MOV #ZPAT20,RO “SET ACO=0 
4136 021644 172410 LDD (RO) ,ACO 
4137 021646 013700 022042 MOV av7 TMP) RO 
4138 021652 172010 72: ADDD _— (RO) ,ACO : TEST INSTRUCTION 
4139 021654 170205 STFPS  R5 
4140 021656 170011 S 
4141 021660 012700 022046 MOV #ZDATOO,RO :GET RESULT 
4142 021664 174010 STD ACO, (RO) 
4143 021666 012702 000004 MOV #4,R 
4144 021672 013701 022042 MOV a47ZTMP1 RI sRESULT CORRECT? 
4145 021676 022021 73: CMP (RO) +, (R1)+ 
4146 021700 001401 BEQ 24 
4147 021702 000423 BR ZERR1 
4148 021704 077204 74: SOB R2,73 
4149 021706 023705 022044 CMP a47 TMP2 RS :FPS CORRECT? 
4150 021712 001401 BEQ 486° 25 
4151 021714 000437 BR ZERR2 
4152 021716 005737 022040 75: TST BAZFLAG :FINISHED TEST? 


001012 
4154 021724 012737 177777 022040 MOV 4-1 ,QAZFLAG 





CJKDCB~A_KEF11- 
CJKDCB.P11 


4210 


031465 
010421 


146314 
156735 
156735 
146314 


000000 
000000 


104413 


2042 


Oooo 
Mrnrnr 


022042 


021652 
001240 
2044 


3 FP od he oe 1 MACY11 spas 1052) 


rc 906210 


B 8 
15:31 PAGE 78 








12-MAR-80 
ADDD WITH Acad TEST 
MOV #7PAT10 a7 TMP 1 
mov #210, a#ZTMP2 
76: BR ZDONE 
ZERR1: sDATA FAILURE 
MOV #22, @4STMP2 
MOV aeZ TMP) aes IMP3 
MOV #ZPAT20 .a#STMPS 
MOV #ZDATOO ,a@#STMPS 
MOV a4ZTMP'1 ,a#STMP6 
1$: ERROR 2 
BR ZDONE 
ZERR2: 
MOV #72 ,aASTMP2 
MOV R5, TMP3 
MOV @4ZTMP2 ,aaSTMP4 
1$: ERROR 2 
BR ZDONE 
ZFLAG: .WORD 0 
ZTMP1: 0 
ZTMP2: 0 
ZDATOO: .WORD 0 
ZDATO1: 0 
ZDATO2: _ 
ZDATO3 0 
ZPATOO 031463 
ZPATO1 010421 
ZPATO2: 46314 
ZPATO3: 156735 
ZPAT10: 156735 
ZPAT11: 16/356 
ZPAT12 135673 a 
ZPAT13 146314 
ZPAT20 0 
ZPAT21 0 
ZPAT22: 0 
ZPAT23: 0 | 
ZDONE 
RSETUP GO INITIALIZE THE FPS AND STACK; AND 
‘OEE IF «THE USER HAS EXPRESSED 
“THE DESIRE TO CHANGE THE SOF TWARE 
“VIR TUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
SIC TITTIES TR A AIT ER RER ERR ES 
:#TEST 31 ADDF AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST 


:* THIS IS A TEST OF THE ADD —- WITH THE 
>* OPERANDS HAVING EQUAL EXPONENTS 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR~80 15:26 131 


CJKDCB.P11 


022220 
022224 


022226 


022306 
022312 
022316 


022021 


003240 
022472 
028050 
022150 
023060 


023040 
023070 
000004 


023100 
023040 


022614 


003200 
023050 
022256 
023060 


023040 
023100 
000004 


023070 
023040 
000004 


000244 


001236 


001236 


12-MAR-80 


15:31 PAGE 79 
ADDF AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST 


:* THE ROUND/TRUNK FLOWS IS ALSO TESTED. 


© 
° 
7s RRA REAR EEREREREEERREREEAEEEEEAERARAAREERRAERRERAAERRER 


1ST31: 
AA1: 


AA2: 


AA?: 


+ TEST DOUBLE FLOATING ROUND 


SCOPE 


;SET UP THE LOOP ON ERROR ADDRESS. 


#3240,RO 

R :SET FIU FIV FD AND F 

#AAERRO,@#FPVECT : IN CASE THE OVER/UNDER 

HAAPATO.RO FL Lows IN TRAP WILL 

(RO) .ACO “SET UP ACO 

HAA2 . AST : OPERAND 

#AAPAT1,RO 

(RO) ,ACO : TEST INSTRUCTION 

“SHOULD TRUNCATE 

#AADATO, RO 

ACO, (RO) *GET THE RESULT 
AT2,R1 

#4 .R2 

(RO)+, (R1)+ = CORRECT? 

AA7 

H#AAPAT3,RO :DID (BUT FT) FAIL 

HAADATO.R1 

#4 

(RO)+ ,(R1)* 

ARERR] :DATA ERROR 

QHAAERR2 : (BUT FT) ERROR 

R2, AAG 


MODE . 
A 1 SHOULD BE ADDED TO THE LSB ON ROUNG MODE. 


AA10: 


AA11: 
AAl2: 


AA13: 


AA14: 


LPERR 
MOV 
LDFPS 
MOV 
LDD 
MOV 


MOV 
ADDD 


eae 
edge RO 


malt a 


aco 
aASTMP2 
RO 


(RO), AAC6 


#AADATO 


ACO, (ROS 
#AAPAT3,R1 


#4.R 
(RO) +, (R1)+ 


RO 


HAAPAT2, a 


WAADA TO.R 
R2 
RoR 


SET UP ACO OPERAND 
TEST INSTRUCTION 

; SHOULD ROUND 

GET THE RESULT 


; CORRECT? 
3DID (BUT FT) FAIL? 


SEQ 0093 


D 
15:31 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) _12-MAR~80 PAGE 80 

CIKDCB. P11 + 12=MAR-80 15:26 T31 ADDE AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST SEQ 0094 
4267 022320 001413 BEQ AA17 

4268 022322 012700 023110 MOV HAAPATG RO :WAS THE FLOATING 
4269 O22 012701 023040 MOV #AADATO.R1 “CONSTANT USED 

4270 022332 012702 000004 MOV #4 .R2 ‘INSTEAD OF THE 

4271 022336 022021 AA15: CMP (R6)+,(R1)+ - =DOUBLE CONSTANT 
4272 022340 001401 BEQ AA “IN THE ROUND 

4273 022342 000542 BR AAERR3 ; FLOWS? 

4274 020 077204 AA16: S08 R2,AA15 “DATA ERROR 

4275 O22 544 BR AAERR4 ;CONSTANT ERROR 

4276 022350 077216 AA17: SOB R2,AA1 

4277 022352 BR AAERRS ;(BUT FT) ERROR 

4278 022354 077230 AA20: SOB AAI3 

4280 :NOW TEST ADDF WITH FT=0, ROUND MODE 

4282 022356 AA21: 

4283 022356 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4284 022360 012700 003200 MOV #3200,R0 Fiv=1, FIV=1, FT=0 
4285 022364 170100 LDFPS RO 

4286 022366 012700 023050 MOV WAAPATO RO :LOAD ACO OPERAND 
4287 022 172410 LDD ACO 

4288 022374 170001 SETF sENTER FLOATING MODE 
4289 022376 012737 022410 001236 MOV #AA22 ,@HSTMP2 

4290 022404 012700 023120 MOV HAAPATS RO 

‘4291 022610 172010 AA22: ADDF (RO), An : TEST INSTRUCTION 
4292 * SHOULD ROUND 

4293 022412 _ AA23: 

4294 022412 i70011 SETD :RESET TO DOUBLE 
4296 022414 012 023040 MOV #AADATO,RO “GET THE RESULT 
4297 022420 174010 STD ACO, (RO) 

4298 022422 012701 023130 MOV RAAPATS, R1 > CORRECT? 

4299 022426 012702 000002 MOV 

4300 022432 022021 AA24: CMP (eos. (RID 

4301 022434 001413 BEQ ? 

4302 022436 012700 023070 MOV #AAPAT2, RO :WAS THE DOUBLE 
4303 022442 012701 023040 MOV #AADA TOR : CONSTANT USED INSTEAD 
4304 022 012702 000002 MOV R2 “OF THE FLOATING 
4305 022452 022011 AA2S: CMP Means. (R1) “CONSTANT IN THE 
4306 022454 001401 BEQ “ROUND FLOWS? 

4307 022456 000534 BR AAE :DATA ERROR 

4308 022 077. AA26: SOB AA25 

4309 022462 00055 BR AAERR? ;:CONSTANT ERROR 

4310 022 077216 AA27:  S$0B AA24 

4311 022466 000137 023140 JMP @4AADONE 

4313 :COME HERE IF A TRAP OCCURS TO 244. 

4315 022472 013700 001236 AAERRO: MOV avSTMP2 RO SEE IF THE TRAP WAS 
4316 022476 005720 TST (RO)+  <cAT A rest INSTRUCTION 

4317 022500 020016 CMP RO, (SP) 

4318 022502 001402 BEQ 

4319 022504 000137 062524 10$:  JMP avFPSPUR 

4320 022510 1$: 

4321 022510 170 STST RO sGET FEC 

4322 022512 020027 000010 MP RO,#10 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A( 1052) io 
CJKDCB.P11 12=MAR-80 15:26 T31 ADDF 

4323 022516 001405 BEQ 20 

4324 022520 020027 000012 CMP RO.#12 

4325 022524 001410 BEQ 30$ 

4326 022526 000766 10$ 

4327 022530 022532 20$ 

4328 022532 011637 001236 20$: MOV (SP) ,aa#STMP2 
4329 022536 022626 CMP (SP)+, (SP) + 
4330 022540 104002 21$: ERROR 

4331 022542 000137 023140 25$: JMP aH AADONE 

4332 2546 011637 0012 30$: MOV (SP) ,a#STMP2 
4333 022552 022626 CMP (SP)+, (SP) + 
4334 022554 104002 31$: ERROR 

4335 022556 000771 BR 25$ 

4337 :ADDD RESULT INCORRECT 

4338 022560 012737 023070 001246 AAERR1: MOV AAPAT2 ,a#STMP6 
4339 022566 012737 023050 001242 AAER10: MOV AAPATO. aaST TMP4 
4340 022574 012737 023060 001240 MOV HAAPAT1 ,aa#$STMP3 
4341 022602 012737 023040 001244 MOV HAADATO, aASTMP5S 
4342 022610 002 1$: ERROR 2 

4343 022612 552 BR AADONE 

4344 022614 012737 023070 001246 AAERR2: MOV HAAPAT2 ,QASTMPS : 
4345 022622 012737 023050 001242 MOV H#AAPATO.a4$TMP 
4346 022630 012737 023060 001240 MOV HAAPAT1 .a#STMPS 
4347 022636 012737 023040 001244 MOV HAADATO, a4$STMP5 
4348 022644 002 1$: ERROR 2 

4349 022646 534 BR 

4350 022650 012737 023100 001246 AAERR3: MOV HAAPAT3, a4STMPG 
4351 022656 743 BR 

4352 012737 023100 001246 AAERR4: MOV #AAPAT3 aS TMPG 
4353 12737 023050 001242 MOV HAAPATO, aS TMPS 
4354 022674 012737 023060 001240 MOV #AAPAT1 ,a#S MPS 
4355 022702 012737 023040 001244 MOV #AADATO, a¥STMPS 
4356 022710 104002 1$: ERROR 2 

4357 022712 000512 BR 

4358 022714 012737 023100 001246 AAERRS: MOV 

4359 022722 012737 023050 001242 MOV 

4360 022730 012737 023060 001240 MOV 

43%1 022 012737 023040 001244 MOV 

4362 022744 104002 1$: ERROR 

4363 022746 74 BR AADONE 

4364 022750 012737 023120 001240 AAERR6: MOV HAAPATS ,@NSTMPS 
4365 022756 012737 023050 001242 MOV #AAPATOa#$STMP4 
4%6 022764 012737 023040 001244 MOV #AADATO, a#STMPS 
4367 022772 012737 023130 001246 MOV HAAPAT6. aS TMP 
4368 023000 002 1$: ERROR 2 

4359 023002 56 BR AADONE 

4370 023006 012737 023120 001240 AAERR7: MOV HAAPATS ,aaSIMP3 
4371 023012 012737 023050 001242 MOV HAAPATO.aASTMPS 
4372 023020 012737 023040 001244 MOV HAADATO. aWSTMPS 
4373 023026 012737 023130 001246 MOV H#AAPAT6 tS TMP6 
4374 023034 104002 1$: ERROR 2 

4375 023036 000440 BR AADONE 

4376 023040 000000 AADATO: 0 

4377 023042 000000 0 

4378 023044 000000 0 


E 
15:31 PAGE 81 
AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST 


; OVERFLOW 
; UNDERF LOW 








;REPORT OVERFLOW ERROR 


sREPORT UNDERF LOW 
: ERROR 


; (BUT FT) FAILED. 


;DATA ERROR. 
;BAD CONSTANT 


7; (BUT FT) FAILED. 


;FD=0 AND 
:DATA ERROR 


CONSTANT ERROR 


SEQ 0095 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 sper tes) ies 15:31 * pace 82 

CJKDCB.P11 12-MAR~B80 15:26 T31 F AND ADDD WITH E(AC)=E(FSRC) TEST AND (BUT FT) TEST 
4379 023046 000000 0 
4380 023050 000200 AAPATO: 200 
eee 8 anes 000000 8 
2388 953056 000000 ; 
4384 3060 000200 AAPAT1: 200 
4385 3062 000000 0 
4386 s0ce 000000 0 
4387 0O 000001 1 
4388 3070 000400 AAPAT2: 400 
4389 3072 000000 0 , 
4390 3074 000000 0 
4391 3076 000000 0 
4392 023100 000400 ASPATS: 400 
4393 023102 000000 0 
4394 023104 000000 0 
4395 31 000001 1 
4396 023110 000400 AAPAT4: 400 
4397 023112 000000 0 
4398 023114 100000 100000 
4399 023116 000000 0 
4400 023120 000200 AAPATS: 200 
4401 023122 000001 1 
4402 023124 000000 0 
4403 02351 000000 0 
4404 023130 000400 AAPAT6: 4006 
4405 0231 000001 1 
4406 023134 000000 0 
4407 0231 000000 0 
4408 023140 ONE : 

023140 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
4410 : IF THE USER HAS EXPRESSED 
4411 : THE DESIRE TO CHANGE THE SOF TWARE 
4412 VIR TUAL CONSOLE SWITCH — (HAS 
4413 : THE USER TYPED CONTROL G?) 
4414 errrerrrtrrrrrrr tert ttiiiiiiii itt t tiie ee 
4415 : TEST 32 ADDF AND ADDD WITH E(AC) LESS THAN EC(FSRC) TEST 
4417 < eTHIS IS ATEST OF THE ADDD AND ADDF 
4418 : s INS TRUCTIONS AND T HE ALIGN A C ALGORITHM 
4419 >*FLOWS. THE CONSTANT ( ron: FLOATING, 57 FOR 
4420 78 E) USED IS CHECKED. THEN SIMPLE 
4421 = *AND WORST CASE ALIGNMENT SITUATIONS ARE 
143% oe NOTE E(AC) IS LESS THEN EC(FSRC) 
44264 eden iekdacesmunerthiewdanekesd secedonsnorscedqontenesceonese 
25 023142 000004 1$132: SCOPE 

4426 EXPONENT DIFFERENCE=57=71 (OCT) FD=1 
4427 023144 CCI: 
4428 023144 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4429 3146 012704 003200 MOV #3200 .R4 SET FIV.FIV, AND FD 
4430 023152 1 LDFPS R&4 
4431 023154 012737 023174 001236 MOV #CC2 ,@#STMP2 
4432 023162 012700 024576 MOV #ccPO,RO :SET ACO OPERAND 
4433 023166 172410 LDD {RO) ACO ACO 
4434 023170 012700 024616 MOV #CCP2,RO 


SEQ 0096 





CJKDCB~A sere FP een as 536 1 MACY) SAL 05e) ne 15:31 


PAGE 83 
F AND ADDD WITH ECAC) LESS THAN E(FSRC) TEST 


CjKDCB.P11 SEQ 0097 
4435 172010 CC2: ADDD  (RO),ACO : TEST INSTRUCTION 
170205 STFPS RS “GET FPS | 
4437 01 024566 MOV #CCDATO,RO “GET THE RESULT 
4 174010 STD ACO, (ROS 
hk 012701 024616 MOV #CCP2,R1 -s]$ IT CORRECT 
koleeeO) 012702 000004 MOV #4 R2 
4441 02 1 cc3: CMP (RO) +, (R1)+ 
the 1415 BEQ CC6 
446 01 700 024566 MOV #CCDATO,RO :DID A BAD 
bhakela 012701 024576 MOV #CCPO,R1 “CONSTANT (NOT 57) 
4645 012702 000004 MOV #4 .R2 “GET GENERATED 
Pers 02 1 cC4: CMP (RO)+, (R1)+ “FOR THE ALIGNMENT 
lghake? 1 BEQ cc5 “FLOWS? 
6448 90013 024164 JMP a4CCER1 “DATA ERROR.D 
lolaked 077205 ccS: SOB R2,CC4 
4450 000137 024222 MP aACCER2 :BAD CONSTANT .D 
4451 077220 CC6: SOB 2,(C3 
645 05 CMP R5 -FPS CORRECT? 
445 02 001402 BEQ ? 
4454 000137 024130 MP aeCCERO :BAD FPS. 
4455 sEXPONENT DIFFERENCE=56=70 (OCT) FD=1 
4456 023266 CC7: 
4457 023266 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4458 023270 012704 003200 V #3200.R4 “SET FIV.FIV, AND F 
4459 023274 170104 LDFPS R 
4460 023276 012737 023316 001236 MOV #CC8,aaSTMP2 
4461 023 012700 024576 MOV #cCPO,RO :SET ACO OPERAND 
4462 023310 172410 LOD (RO) .ACO 
4463 023312 012700 024606 MOV #CCP1,RO sFSRC 
4464 023316 172010 CC8: ADDD (RO),ACO sTEST INSTRUCTION 
4465 023320 170205 STFPS R “GET FPS 
4466 023322 012700 024566 V #CCDATO,RO “GET THE RESULT 
4467 023326 174010 STD ACO, (RO) 
4468 023330 012701 024666 MOV #CCP7,RI 21S IT CORRECT 
4469 023334 012702 000004 MOV AG_R 
4470 023340 022021 cc9: CMP (RO) +, (R1)+ 
4471 023342 001415 BEQ CCI 
4472 023 012700 024566 MOV ACCDATO.RO :DID A BAD 
73 023350 012701 024606 - MOV ACCP1LRI “CONSTANT (NOT 57) 
4474 023354 012702 000004 MOV #4 R2 “GET GENERATED 
75 023360 022021 cc10: CMP (RO) +, (R1)+ “FOR THE ALIGNMENT 
4476 023362 001402 BEQ cc11 >FLOWS? 
77 023364 000137 024260 IMP aeCCER3 “DATA ERROR.D 
4478 023370 077205 CC11: SOB R2,CC10 
4479 023372 000137 024276 IMP CCERSG :BAD CONSTANT .D 
4480 023376 077220 Cc12: SOB R2,CC9 
4481 023400 020405 CMP 4_-R5 :FPS CORRECT? 
4482 023402 001402 BEO cis 
4483 023404 137 024130 JMP aACCERO :BAD FPS. 
448% : EXPONENT DIFFERENCE SOS= 31 (OCT) FD=0 
4485 023410 (C13: 
4486 023410 104414 LPER :SET UP THE LOOP ON ERROR ADDRESS. 
4487 023412 012737 023440 001236 MOV #CC14,aaSTMP2 
4488 023420 012700 024576 MOV #CCPO,RO :SET UP ACO OPERAND. 
4489 023424 172410 LDD (RO) .ACO 
4490 023426 012704 003000 MOV #3000 ,R4 :SET FIV.FIV. CLEAR FD. 








"PAGE 84 
F AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


;FSRC 
:TEST INSTRUCTION 
sREENTER DOUBLE MOVE 


:GET THE RESULT 


31S THE RESULT CORRECT? 


;WAS A BAD CONSTANT 
;USED (NOT 25) IN 
; THE ALIGN FLOWS? 


:DATA ERROR F 
-BAD CONSTANT F 


SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP ACO OPERAND. 
;SET FIV.FIV. CLEAR FD. 


sFSRC 
: TEST INSTRUCTION 


;REENTER DOUBLE MOVE 
:GET THE RESULT 


71S THE RESLT CORRECT? 


;WAS A BAD CONSTANT 
; USED (NOT 55) IN 
; THE ALIGN FLOWS? 


DATA ERROR F 
@4CCER8 ;BAD CONSTANT F 
R2,CC21_—s 


CJUKDCB-A eile FP DIAG PART 1 MACY11 spat t05<) Las pe 15:31 
CJKDCB.P11 12=MAR=80 15:26 T32 
4491 023432 170104 LDFPS 
498 023434 012700 024656 MOV RCPS .RO 
93 023440 172010 CC14: ADDF (RO) ,ACO 
449% 2 170205 STFPS RS 
4495 4 170011 SETD 
% 0 S446 012700 024566 MOV #CCDATO,RO 
4497 023452 174010 STD ACO, (ROS 
4498 023454 012701 024656 MOV #CCP6,R1 
4499 ee 12702 000002 MOV a 
4500 023464 022021 cc15: CMP (RO) +, (R1)+ 
4501 02 001415 BEQ C1 
4502 023470 12700 024566 MOV #CCDATO,RO 
4503 023474 012701 024626 MOV #CCP3,R1 
4504 023500 01 ¢702 000002 MOV #2,R2 
4505 023504 022021 CC16: CMP (RO) +, (R1)+ 
4506 023506 001402 BEQ CC17 
4507 023510 000137 024334 JMP aNCCERS 
4508 023514 077205 CC17: SOB R2,(C16 
4509 023516 000137 024370 MP aACCER6 
4510 023522 077220 cc18:  S$0B R2,CC15 
4511 023524 020405 CMe 4°R5 
4512 023526 001402 BEQ 19 
4513 023530 137 024146 JMP avCCERSO sBAD F 
4514 ' s EXPONENT DIFFERENCE SoS: 30 (OCT) EDO 
4515 023534 (C19: 
4516 023534 104414 LPERR 
4517 023536 012737 023564 001236 MOV #CC20, a#STMP2 
4518 023 012700 024626 MOV #CCP3.RO 
4519 023550 172410 LDD (RO) ACO 
4520 023552 012704 003000 MOV #3000 24 
4521 023556 170104 LDFPS R4 
4522 023560 012700 024646 MOV #CCPS,RO 
4523 023 172010 CC20: ADDF  (RO),ACO 
4524 023 170205 STFPS R5 
4525 023570 170011 SETD 
4526 023572 012700 024566 MOV #CCDATO. RO 
4527 023576 174010 STD 
4528 02 012701 024676 MOV #ccP10, R1 
4529 012702 000002 MOV 
4530 023610 022021 CC21: CMP {RO) >, (RID 
4531 023612 001415 BEOQ é 
4532 023614 012700 024566 MOV #CCDATO,RO 
4533 023620 012701 024646 MOV #CCP5 RI 
4534 023624 012702 000002 MOV #2.R 
4535 023630 022021 (C22: CMP (RO) +, (R1)+ 
4536 023632 001402 BEQ (C23 
4537 023634 000137 024424 MP aACCER7 
4538 023640 0 (C23: SOB R2,CC22 
4539 023642 000137 024442 MP 
4540 023646 077220 (C24: SOB ; 
4541 023650 020405 CMP 
4542 023652 001402 BEQ 
4543 023654 137 024146 JMP aeCCERIO 
4544 :EXPONENT DIFFERENCE=1 FD=1 
4545 023660 (C25: 
4546 023660 104414 LPERR 


;SET UP THE LOOP ON ERROR ADDRESS. 





SEQ 0098 





CJKDCB.P11 


0 
024124 


003200 


023710 
024576 


024626 


024566 
024706 
000004 


024566 
024626 
000004 


024476 
024514 


024130 


003200 


024032 
024576 


024636 
024566 
024636 
000004 


024566 
024636 
000004 


024532 
024550 


024130 
024726 


001236 


007 236 


ee nnn Ea NINE 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR~80 15:26 T32 ADDF 


a + 15:31 PAGE 85 
AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


V #3200, RG :SET FIV.FIV, AND FD 
LDFPS 
V RCC26, aw$TMP2 
MOV wcc PO-R RO ;SET ACO OPERAND 
LOD (RO),A 
MOV pecPs. RO sFSRC 
(C26: ADDD  (RO),ACO “TEST INSTRUCTION 
STFPS R “GET FP 
MOV #CCDATO,RO “GET THE RESULT 
STD ACO, (RO) 
MOV wcCPll, R1 :1S IT CORRECT 
MOV 
CC27: CMP tROD>. (R1)+ 
BEQ CC 
MOV A#CCDATO,RO :DID A BAD 
MOV #CCP3,R1 “CONSTANT (NOT 57) 
MOV #4.R :GET GENERATED 
CC28: CMP CRO)+ (R1)¢ :FOR THE ALIGNMENT 
JMP ayCCER10 “DATA ERROR. D 
CC29: SOB 


R2,CC28 
JMP avcCCcERi1 :BAD CONSTANT.D 
cc30: soe R2,CC27 


CMP R4_.R5 :FPS CORRECT? 
JMP aFCCERO BAD FPS. 
ZEXPONENT DIFFERENCE=100=144 cochh F FD=1 
LPERR :SET UP THE LOOP oN ERROR ADDRESS. 
MOV #3200,R4 “SET FIV.FIV, AND FD 
LDFPS R& 
MOV #CC32,aaSTMP2 
MOV #CCPO,RO :SET ACO OPERAND 
LOD (RO) ACO 
#CCP4 RO -F SRC 
CC32: DD _—«- (RO) , ACO ;TEST INSTRUCT ION 
STFPS RS FPS 
MOV #CCDATO RO “GET THE RESULT 
STD ROS 
MOV pig t -J1S IT CORRECT 
MOV #4_R 
CC33: CMP (Rb) +, (R1)+ 
BEQ CC 
MOV #ACCDATO,RO -DID A BAD 
MOV #CCP4 RI “CONSTANT (NOT 57) 
MOV #4 .R2 GE GENERATED 
CC34: CMP (RO) + (RI) “FOR THE ALIGNMENT 
BEQ ¢35 >FLOWS? 
MP aACCERI2 “DATA ERROR.D 


cc35: SOB R2,CC34 


;BAD CONSTANT .D 
Cc36: SOB R2,CC35 


CMP R4,R5 sFPS CORRECT? 

BEQ CC37 

JMP a#CCERO ;BAD FPS. 
(C37: JMP aC CDONE 


SEQ 0099 


CJKDCB-A KEF11~A FP “y 


CJKDCB.P11 


4603 
4604 
4605 


4606 
4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 


12-MAR~ 


001242 
001240 


024726 


024726 
024606 
024666 
024606 
024666 
024576 
024566 
024726 
024656 
024656 
024576 
024566 


024646 
024676 


024646 
024676 
024566 
024576 


024626 
024706 
024626 
024706 


PART 1 
15:26 


MACY17 30A(1052) 
T32 


CCERO: 
1$: 
CCER9O: 
1$: 
CCER1: 
CCERSO: 
1$: 
CCER2: 
CCER22: 
1$: 
CCERS: 


CCER4: 
CCER44: 
1$: 
CCERS: 
CCERSS: 
1$: 
CCER6: 


1$: 


CCER7: 


CCER8: 


1$: 


CCER10: 


CCER11: 


J 
12-MAR~80 15:31 
ADDF AND ADDD WITH E 


SBgSSSS REESE 


S 


MO 


SSBgaeggsases 


<== = 


R4, a4STMPS 
as 


a¥C CDONE 
R4 ,@4STMPS 
ws 


aC CDONE 
#CCP2,aaSTMP3 
#CCP2,aeSTMP6 
#CCPO, aS TMP4 
#cCDATO,a#STHPS 


a4#C CDONE 

A#CCP2 ,@ASTMPS 
A#CCP2 ,@#STMP6 
#CCPO, MP4 
#CCDATO,@4$STMP5 


a4#CCDONE 
ACCP] ,aASTMPS 
hi! avSTMP6 


wCCP7, 
#CCPO, aNSTMPS 
#CCDATO,a#STHPS 


@*CCDONE 
#CCP6 ,aHSTMPS 
#CCP6 ,a#STMP6 


A#CCPO ,@*STMP4 
a CDATO ,a#STMP5 


CCDONE 
ACCP6, BASTMPS 
#CCP6, AAS TMP 
#CCPO. avSTMPS 
#CCDATO,a#STHPS 


CCDONE 
ACCPS .aaSTMP3 
#¢CP10,aeSTHPG 


CCDONE 

#CCP3 ,a#STMP3 
#CCP11, aa#STMP6 
CCERSO 
#CCP3,aaSTMP3 
#CCP11 , aa#STMP6 
CCER44 


PAGE 86 
(AC) LESS THAN E(FSRC) TEST 


;FPS ERROR D 


;FPS ERROR F 


;DATA ERROR D 


; CONSTANT BAD D(B) 


; CONSTANT BAD D(G) 


DATA ERROR F 


7CONSTANT BAD F (B) 


DATA ERROR F 


CONSTANT BAD F (G) 


DATA ERROR D 


;CONSTANT BAD D(G) 


SEQ 0100 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-B0 15:31 K OAGE 87 

CJKDCB.P11 12-MAR-80 15:26 T32 ADDF AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST SEQ 0101 

4659 024532 012737 024636 001240 CCER12: MOV #CCP4,a#$TMP3  : DATA ERROR D 

4660 024540 01 10737 024636 001246 MOV #CCP4 . aASTMPO 

4661 024546 BR CCERS 

662 4550 o373 G 024636 001240 CCER13: MOV #CCP4,a#$TMP3 CONSTANT BAD D(B) 

4663 024556 7 024636 001246 MOV #CCP4 aMSTMP6 

4664 024564 BR CCER22 

4665 024566 £00800 CCDATO: 0 

4666 924570 000000 0 

4667 024572 000000 0 

4668 024574 000000 0 

4669 024576 000200 ccPO: 200 sE (AC) =1 

4670 024600 000000 0 

4671 024602 000000 0 

4672 024604 000000 0 
024606 016200 CCP1: 16200 sE (FSRC) =E (AC) +56=57 

4674 024610 000000 0 : =71(0CT) 
024612 000000 0 

4676 024614 000000 0 
024616 016400 CCP2: 16400 E (FSRC)=E (AC) +57=58 

4678 024620 000000 0 : =72(0CT) 

4679 024622 000000 0 

4680 024624 000000 0 

4681 024626 000400 ccP3: 400 € (FSRC)=E (AC) +1=2 

4682 02 000000 0 

4683 000000 0 

4684 024634 000000 0 

4685 031200 ccP4: 31200 = (F SRC) =E (AC) +100=101=145 (OCT) 

4686 000000 0 

4687 024642 000000 0 

4688 024644 000000 0 

4689 006200 CCPS: 6200 = (F SRC) =E (AC) +24=25=31 (OCT) 

4690 024650 000000 0 

4691 024652 000000 0 

4692 024654 000000 0 

4693 024656 006400 CCP6: 6400 :E (FSRC)=E (AC) +25=26=32(0CT) 

4694 024660 000000 0 

4695 024662 000000 0 

4696 000000 0 

4697 02 016200 CCP7: 16200 :CCP1 RES 

4698 024670 000000 0 
024672 000000 0 

4700 024674 000001 1 

4701 024676 006200 CCP10: 6200 :CCP5 RES 

4702 024700 000001 1 

4703 024702 000000 0 

4704 024704 000000 0 

4705 024706 000500 CCP11: 500 :CCP3 RES 

4706 024710 000000 0 

4707 024712 000000 0 

4708 024714 000000 0 

4709 024716 000200 CCP12: 200 :BAD CONSTANT 

4710 720 0 “RES CCP2.CCP4 

4711 024722 000000 0 

4712 024724 000000 0 

4714 024726 CCDONE : 
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4715 024726 
4716 


025056 
025060 
025064 


025066 
025070 
025074 


104413 


174010 


003200 


025570 
024770 


026132 
026122 


026102 
026132 
000004 


025650 


025570 


003200 


025064 
026152 


026122 


026102 


000244 
001236 


001236 


iT 15:31 * PAGE 88 
ADDF AND ADDD WITH E(AC) LESS THAN E(FSRC) TEST 


RSETUP ;GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 
; THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH — (HAS 
ZTHE USER TYPED CONTROL G?) 


WTTTTTILILILLILLLLLCLAALAEAE eee ete LLL 


: TEST 33 ADDF AND ADDD WITH E(AC) GREATER THAN E(FSRC) TEST 


THIS IS A TEST OF THE ADDD AND ADDF 

: * INSTRUCT See AND THE ALIGN FSRC ALGORITHM 

;* THE CONSTANT USED IS _- 
CASE ALIGNMENT 


SEQ 0102 


> *SITUATIONS 








ARE TRIED. NOTE E(AC) 
:s18 GREATER THAN E(FSRC). 
viteiediedeediithhaesebretensanaseentensonnentensesceesescesese 
jivene SCOPE 
ZEXPONENT DIFFERENCE=57=71 (OCT) FD=1 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #3200,R4 “SET FIV FIV, AND FD 
MOV :SET UP FOR ERROR 
MOV “IN CASE THE OVER\ 
“UNDER FLOWS FAIL. 
MOV “SET ACO OPERAND. 
LDD 
MOV sFSRC 
BB2: ADDD “TEST INSTRUCTION 
STFPS 
BB3: MOV :GET THE RESULT 
MOV :RESULT CORRECT? 
MOV #6 
BB4: CMP (RO)+, (R1)+ 
BEQ BR5 
JMP QABBER1 :DATA ERROR D 
BB5: SOB R2,BB4 
:WAS FPS CORRECT? 
CMP R4.RS 
BEQ BB6 
JMP @ABBERO sFPS ERROR 
ZEXPONENT DIFFERENCE=56=70 (OCT) FD=1 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
#3200,R4 “SET FIV.FIV, AND FD 
LDFPS 
MOV 
MOV :SET ACO OPERAND 
LDD 
MOV -F SRC 
BB7:  ADDD ; TEST INSTRUCTION 
STFPS FPS 
MOV #BBDATO,R “CET THE RESULT 
STD ACO, Tag 


Mm 8 
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CJKDCB.P11.  12=MAR-80 1 ADDF SEQ 0103 
4771 025076 012701 026212 MOV #BBP10,R1 :I1S IT CORRECT 

4772 025102 012702 000004 MOV #4 

4773 025106 022021 BB10: CMP (RO) +, (R1)+ 

4774 025110 001415 BEQ 8813 

4775 025112 012700 026102 MOV #EBDATO,RO :DID A BAD 

4776 0251.46 012701 026152 MOV WEBPATS , RI “CONSTANT (NOT 57) 

4777 025.22 012702 000004 MOV R2 ‘GET GENERATED 

4778 053126 022021 BB11: CMP tROOs. (RID + “FOR THE ALIGNMENT 
4779 ce51 001402 BEQ BB12 “FLOWS? 

4780 025132 900137 025666 JMP R2 “DATA ERROR.D 

4781 025136 077205 8812: SOB R2,BB11 

478¢ 025140 000137 025704 MP R3 :BAD CONSTANT .D 

4 025144 077220 8813: SOB Re .BB10 

4784 025146 0920405 CMP R4_R :FPS CORRECT? 

4785 025150 001402 BEQ 14 

4786 025152 137 025570 JMP @YBBERO sBAD F 

4787 sEXPONENT DIFFERENCE=25=31 (OCT) PDO 

4788 025156 QB 14: 

4789 025156 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
4790 025160 012737 025206 001236 MOV #8815, aaSTMP2 

4791 025166 012700 026112 MOV WEBPAT RO :SET UP ACO OPERAND 
4792 025172 172410 LDD wy 

4793 025174 O12 003000 MOV 00k :SET FIV AND FIV 

479% “CLEAR FD 

4795 025200 170104 LDFPS R4 

4796 025202 012700 026122 MOV #BBPAT1,RO sFSRC 

4797 025206 172010 8815: ADDF  (RO).ACO “TEST INSTRUCTION 

4798 025210 170205 STFPS RS 

4799 025212 170011 SETD :REENTED DOUBLE MODE. 
4800 025214 012700 026102 MOV #ERBDATO,RO *GET THE RESULT : 
4801 025220 174010 STD ACO, (RO) 

4802 025222 012701 026112 MOV WEEP A ATO,R1 :I1S THE RESULT 

4803 025226 012702 000002 MOV R * CORRECT? 

4804 025232 022021 BB16: CMP {ROD *, (RID* 

4805 025 001402 BEQ 8817 

4806 025236 137 025740 JMP @ABBERS :DATA ERROR F 

4807 025242 077205 8817: SOB Re 8816 

4808 025244 05 CMP R4.R :IS FPS CORRECT? 

4809 025246 001402 BEQ 8820 

4810 025250 137 025610 JMP QVBBER10 :FPS ERROR. 

4811 :EXPONENT DIFFERENCE=24=30 (OCT) 

4812 025254 8820: 

4813 025254 104414 LPERR *SET UP THE LOOP ON ERROR ADDRESS. 
4814 025256 012737 025304 001236 MOV #BB21 QrsTnp2 

4815 025 12700 026142 MOV § ABBPAT :SET UP ACO OPERAND. 
4816 025270 172410 LOD (RO) a 

4817 025272 O12 003000 MOV #3000,R4 :SET FIU,FIV. CLEAR FD. 
4818 025276 170104 LDFPS 6 

4819 025 012700 026122 MOV #EBPAT1,R FSRC 

4820 025304 172010 BB21: ADDF (RO),A gfe “TEST INSTRUCTION 
4821 025 170205 STFPS RS5 

4822 025310 170011 SETD =REENTER DOUBLE MODE 
4823 025312 012700 026102 MOV WRBDATO,R “GET THE RESULT 

4824 025316 174010 STD ACO, (R05 

4825 025 012701 026202 MOV #BBP7 R1 :1S THE RESULT CORRECT? 
4826 025324 012702 000002 MOV #2,R2 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 304(1052) 12-MAR-BO 15:31 PAGE 90 

CJKDCB.P11 12=MAR-80 15:26 133 F AND ADDD WITH E(AC) GREATER THAN E(FSRC) TEST SEQ 0104 

4827 025330 022021 BB22: CMP (RO) +, (R1)+ 

4828 025332 001415 BEQ BB25 

4829 5334 912700 026102 MOV #BBDATO,RO S A BAD CONSTANT 

340 12701 026142 MOV AT3._R1 ‘USED (NOT 25) IN 

4831 025 12702 2 MOV R2 “THE ALLIGN FLOWS? 

4832 025350 022021 BB23: CMP {RODs. (RI) 

4833 025352 1402 BEQ BB24 

4834 025354 025774 JMP AWBBERS :DATA ERROR F 

4835 025360 077205 BB24: SOB R2,BB23 

4836 32 000137 026012 JMP AHABERS :BAD CONSTANT F 

4837 025366 077220 QB25: SOB Re ,BB2e 

4838 025370 020405 CMP 4-R5 

4839 025372 001402 BEQ 6 

4840 025374 137 025610 JMP @4#BBER10 :BAD FPS. 

4841 :EXPONENT DIFFERENCE=1 

4842 025400 BB26: 

4843 025400 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

4844 02 012737 025430 001236 MOV #BB27 . a#STMP2 

4845 025410 012704 003200 MOV #3200,R4 

4846 025414 170104 LDFPS 4 :SET UP ACO OPERAND 

4847 025416 012700 026162 MOV #BBPATS RO 

4848 025422 172410 LDD (RO) ,ACO 

4849 025424 012700 026122 MOV #BBPAT1 RO =F SRC 

4850 025430 172010 BB27: ADDD  (RO),ACO “TEST INSTRUCTION 

4851 025432 170205 STFPS R 

4852 025434 012700 026102 MOV #EBDATO,RO :GET THE RESULT. 

4853 025440 174010 STD ACO, (RO) 
025442 012701 026222 MOV #EBP11,R1 :1S IT CORRECT? 

4855 025446 012702 000004 MOV #4 .R2 

4856 025452 022021 BB30: CMP (RO)+, (R1)+ 

4857 025454 001402 BEQ BB31 

4858 025456 000137 026046 JMP QABBER7 :DATA ERROR D 

4859 025462 077205 BB31: SOB R2,BB30 

4860 025464 020405 CMP RG.RS :1S FPS CORRECT 

4861 025466 001402 BEO aBS2 

4862 025470 000137 025570 JMP @WBBERO 

4863 sEXPONENT DIFFERENCE=100=144 (OCT) 

4864 025474 BB32: 

4865 025474 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
025476 012737 025524 001236 MOV #8B33, arSTMP2 

4867 025504 012704 003200 MOV #3200,R 

4868 025510 170104 LDFPS R4 :SET FIV.FIV AND FD 

4869 025512 012700 026172 MOV #BBPAT6,R “SET UP ACO OPERAND 
025516 172410 LDD (RO), Aco 

4871 025520 012700 026122 MOV #BAPAT1 RO F SRC 

4872 025524 172010 BB33:  ADDD (RO) . aco “TEST INSTRUCTION 

4873 025526 170205 STFPS 

4874 025530 012700 026102 MOV APRDATO.RO -GET THE RESULT 





8 
CJKDCB=A KEF11-A FP DIAG PART 1 MACYT1 30A(1052) at 15:31 PAGE 91 
CJKDCB.P11 12-MAR-80 15:26 133 AND ADDD WITH E(AC) GREATER THAN EC(FSRC) TEST SEQ 0105 


T ACO, (RO) 
#EBPAT6E RI zIS IT CORRECT 


#4.R2 

(RO) +, (R1)+ 

8835 , 

@FABERB =DATA ERROR D 
R4_RS -1S FPS CORRECT 
BRERO 


“ 
oO 


026172 
BB34: 


026064 
6835: 


000442 BBDONE 
sb vg: BBERO: R4, @#STMP4 :FPS ERROR D 


1$: 


pRITETTE 
* 





= GO INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOf TWARE 

VIRTUAL CONSOLE SWITCH _— (HAS 

THE USER TYPED CONTROL G?) 


0 000137 026232 JMP @4BBDONE 

025610 010437 001242 BBER10: MOV R4,@4STMP4 ;FPS ERROR F 

025614 010537 001240 MOV R5 ,a#STMPS 

0 Hae 1$: ERROR 2 

025622 10441 RSE TUP : GO INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 


2 SE 

:THE DESIRE TO CHANGE THE SOFTWARE 
=VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 


SSBESS SE PSRESGREORRRERSSSSS 
S 
‘ 
: 











025624 000137 026232 JMP QYBBDONE 
490 0296 012737 026132 001242 BBER1: MOV WEBPAT2.@#STMP4 :DATA ERROR D 
4 025 012737 026132 001246 MOV #BBPAT2 .aaSTMP6 
4905 025644 012737 026122 001240 BBER11: MOV WEBPAT1 .a#STMP3 
4906 025652 012737 026102 001244 MOV #BBDATO, a#STMP5 
4907 025660 104002 1$: ERROR 2 
4908 025662 000137 026232 JMP @YBEDONE 
4909 025666 012737 026152 001242 BBER2: MOV #EBPATS ,aASTMPS 
4910 025674 012737 026212 001246 MOV 10, a#STMP6 
4911 025702 760 BR BBE 
4912 025704 012737 026152 001242 BBER3: MOV WEBPATS .@ASTMP4 :BAD CONSTANT D 
4913 025712 012737 001246 MOV #BBP 10, a4STMP6 
4914 025720 012737 026122 001240 MOV WEBPAT1 ,aaSTMP3 
4915 025 012737 026102 001244 MOV #EBDATO. axSTMPS 
4916 025 10400 1$: ERROR 2 
4917 025 00053 BR BBDONE 
4918 025740 012737 026112 001242 BBER4: MOV WEBP/.TO.a#STMP4 :DATA ERROR F 
4919 025746 012737 026112 001246 MOV #EBPATO, a#STMP6 
49 5754 012737 026122 001240 BBER4O: MOV WEBPAT1 ,aaSTMP3 
4921 025762 012737 026102 001244 MOV #EBDATO, a4$TMP5 
490¢ 025 104002 1$: ERROR 2 
4923 025772 00051 BR BBDONE 
4924 025774 012737 026142 001242 BBERS: MOV SBBPAT3,a"STMP4 
4925 012737 026202 001246 MOV wee? aASTMPG 
926 026010 000761 BR BBER4 
4927 026012 012737 026142 001242 BBER6: MOV WRBPAT3.a@#S1MP4 : CONSTANT ERROR F 
4928 20 012737 026202 001246 MOV WEBP7 , aASTMP6 
4929 012737 026122 001240 MOV #RBPAT1 . a#STMP3 
4930 026034 012737 026102 001244 MOV #BBDATO.a#$TMP5 


‘. 
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CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12 133 SEQ 0106 


CJKDCB.P11 ~MAR~80 15:26 





ss 


7 


019737 


104413 


026162 
026122 


026172 
026172 


001242 
001246 


001242 
001246 


1$: 
BBER?7: 


BBERB: 


BBDATO: 


BBPATO: 


BBPAT1: 


BBPAT2: 


BBPAT3: 


BBPAT4: 


BBPATS: 


BBDONE : 


ERROR 


“Ba 


299“ AODCOWISCSOO F009 SSCOOAOSOOS SOOONMSSSZESS 
we ae ae a Ee 

a. & 4 ee 3 

S S S 8 


oOooun—Oo:- 
S 


RSETUP 


2 


BBDONE 
#BBPATS ,a&#STMP4 


#BBPAT 11 aa#STMP6 
BBER11 


#BBPAT6 a4 STMPS 
> > ot le ,@4STMP6 


7F (AC) =E (F SRC) +25=26 
: =32(0CT) 


sECFSRC)=1 


7E (AC) =E (F SRC) +57=58 
: =72(0CT) 


7E (AC) =E(F SRC) +24=25 
: =31(OCT) 


7E (AC) =E (F SR6) +56=57 
: =71(0CT) 


E (AC) =E (F SRC) +1=2 

:E (AC) =E CF SRC) +100=101 

é =145(0CT) 
:BBPATS RES 


;BBPAT4 RES 


:BBPATS RES 


:GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
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CJKDCB=A KEF11=A FP DIAG PART 1 MACY11 30A(1052)_ 1 ‘ 
CJKDCB.P11 12=MAR-80 15:26 133 ADDF AND ADDD WITH E(AC) GREATER THAN E(FSRC) TEST SEQ 0107 
4987 sVIRTUAL CONSOLE SWITCH REGISTER (HAS 
Py “THE USER TYPED CONTROL G?). 
4989 SERRA REAR ERE REAR AERA R ERA ER EERE EERE REAR REED 
4990 “eTEST 34 ADDD WITH NEGATVE OPRANDS TEST 
*?® 
4992 **THIS IS A TEST OF THE ADDD INSTRUCTION 
4993 “*WITH NEGATIVE OPERANDS. EVERY COMBINATION OF 
493% = ®QPERAND SIGNS IS TRIED. 
**® 
4996 < RRRRR AERA EEERERAEEERR EEE EEE ER EEE 
4997 026234 000004 TST34: SCOPE 
4998 -BOTH OPERANDS NEGATIVE 
4999 026236 DD1: 
026236 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5001 026240 012704 003200 MOV #3200,R4 “SET FIO, FIV, AND FD 
026244 170104 LDFPS 
5003 026246 012737 026266 001236 MOV #DD2, a#$STMP2 
026254 012700 030116 MOV #DDP1 RO :SET ACO OPERAND 
5005 026260 172410 LOD (RO) ACO 
026262 012700 030116 MOV #DDP1 RO s ESRC 
5007 026266 172010 DD2: ADDD (RO), ACO “TEST INSTRUCTION 
026270 170205 STFPS R “GET FPS - 
026272 012700 030076 MOV #DDDATO,RO “GET THE RESULT 
5010 026276 174010 STD ACO, (RO) 
5011 026300 012701 030216 MOV #DDPI,R1 :1S IT CORRECT 
5012 026344 012702 000004 MOV #4 R2 
5013 026310 022021 DD3: CMP (RO) +, (R1)+ 
5014 026312 001415 BEQ DD6 
5015 026314 012700 030076 MOV #DDDATO,RO :DID A ADD- 
5016 026320 012701 030146 MOV #DDPS RI “FLOW A FAIL 
5017 026324 012702 000004 MOV #4 R2 
5018 026330 022021 DD4: CMP (RO) +, (R1)+ 
5019 026332 001402 BEQ pp5 =216,442,500 
5020 026334 000137 027326 JMP @ADDER1 “DATA ERROR,D 
5021 026340 077205 oD5: S08 R2,DD4 
5022 026342 000137 027364 JMP aADDERZ :FLOW FAILURE .D 
5023 026346 077220 DD6: SOB R2,DD3 
5024 026350 052704 000010 BIS #10,R4 
5025 026354 020405 CMP R4,RS :FPS CORRECT? 
5026 026356 001402 BEQ . 
5027 026360 137 027310 JMP @YDDERO :BAD FPS 
5028 -AC POS FSRC NEG AC=-F SRC 
5029 026364 D7: 
5030 026364 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5031 026366 012704 003200 MOV #3200 ..R4 :SET FIO. FIV, AND FD 
5032 026372 170104 LDFPS = R 
5033 026374 012737 026414 001236 MOV #DD8. a#STMP2 
5034 026402 012700 030126 MOV #DDP2 RO :SET ACO OPERAND 
5035 026406 172410 LDD (RO) .ACO 
5036 026410 012700 030116 MOV #0DP1 ,RO :F SPC 
5037 026414 172010 DD8: ADDD  (RO),ACO “TEST INSTRUCTION 
5038 026416 170205 STFPS R “GET FP 
5039 026420 012700 030076 MOV #DDDATO,RO “GET THE RESULT 
5040 026424 174010 STD ACO, (ROS 
5041 026426 012701 030106 MOV #DDPO,R1 -1S IT CORRECT 
5042 026432 012702 000004 MOV #4 ,R2 


eee 
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5043 026436 022021 DD10: CMP (RO) +, (R1)+ 

5044 026440 001402 BEQ DD11 

5045 42 000137 027422 JMP a#DDER3 :FLOW FAILURE 

5046 077205 DD11: SOB R2,DD10 

5047 S50 052704 000004 BIS #4 RG 

5048 54 020405 CMP R4-RS :FPS CORRECT? 

5049 026456 001402 BEQ ppi2 

5050 000137 027310 JMP @HDDERO :BAD FPS 

5051 :AC NEG FSRC POS AC=-FSRC 

5052 026464 bdi2: 

5053 026464 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5054 026466 012704 003200 MOV #3200,R4 :SET FIU, FIV, AND FD 
5055 026472 170104 LDFPS R 

5056 026474 012737 026514 001236 MOV #0D13, aeSTMP2 

5057 026502 012700 030116 MOV #DDP1 RO :SET ACO OPERAND 
5058 026 172410 LOD (RO) ,ACO 

5059 026510 012700 030126 MOV DP2 RO -F SRC 

5060 026514 172010 DD13: ADDD  (RO),ACO ; TEST INSTRUCTION 
5061 026516 170205 STFPS RS T FPS 

5062 026520 012700 030076 MOV #DDDATO,RO “GET THE RESULT 
5063 026524 174010 STD ACO, (RO) 

5064 026526 012701 030106 MOV #DDPO,R1 :I1S IT CORRECT 

5065 026532 012702 000004 MOV #4 R2 

5066 026536 022021 DD14: CMP (RO) +, (R1)+ 

5067 026 001402 BEQ DD15 

5068 026542 000137 027460 MP DE :FLOW FAILURE 216,440,121 
5069 026 077205 DD15: SOB R2,DD14 

5070 026550 052704 000004 BIS "RG 

5071 026554 020405 CMP R4_RS -EPS CORRECT? 

5072 026556 001402 BEQ DD16 

5073 026 000137 027310 JMP aADDE “BAD FPS 

5074 ACO POC FSRC NEG JAC/ > /ESRC/ 

5075 026564 6: 

5076 026564 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5077 026566 012704 003200 MOV #3200. .R4 :SET FIV, FIV AND FD 
5078 026572 170104 LDFPS R4 

5079 026574 012737 026614 001236 MOV #0D17 aa#STMP2 

5080 012700 030136 MOV #DDP3.RO =SET ACO OPERAND 
5081 172610 LDD (RO) ,ACO 

5082 026610 012700 030166 MOV #ODP6 .RO sESPC 

5083 026614 172010 DD17: (RO) .ACO ;TEST INSTRUCTION 
5084 026616 170205 STFPS RS PS 

5085 026620 012700 030076 MOV #DDDATO,RO “GET THE RESULT 
5086 026624 174010 STD ACO, (ROS 

5087 026626 012701 030176 MOV #DDP7 RI :I1S IT CORRECT 

5088 026632 012702 000004 MOV #4 R2 

5089 026636 022021 pp18: CMP  (RO)+,(R1)+ 

5090 026640 001415 BEO 

5091 026642 012700 030076 MOV #DDDATO,RO =FLOWS FAILURE 

5092 026646 012701 030206 MOV #DDPB RI 216,440, 101 

5093 026652 012702 000004 MOV #4 R2 “GET GENERATED 

5094 026656 022021 DD19: CMP (RO)+,(R1)+ 

5095 026660 001402 BEQ pp20 

5096 026662 000137 027516 JMP a#DDERS :DATA ERROR. 

5097 026666 077205 DD20: SOB R2,DD19 

5098 026670 000137 027554 MP DER 
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CJKDCB.P11 12=MAR-80 15:26 134 ADDD WITH NEGATVE OPRANDS TEST SEQ 0109 
026674 077220 0D21: Soe R2,0018 

5100 026676 020405 CMP R4 RS :EPS CORRECT? 

$101 0 00140 BEQ DD22 

5102 702 000137 027310 JMP @ADDERO :BAD FPS 

510 “AC NEG FSRC — POS /ESRC/ > /AC/ 

5104 026706 bD22: 

5105 026706 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

5106 710 012704 003200 MOV #3200,R4 :SET FIO,FIV, AND FD 

5107 714 170104 LDFPS R4 

5108 716 012737 026736 001236 MOV #0023. aaSTMP2 

5109 4 012700 030166 MOV #DDP6 RO :SET ACO OPERAND 

5110 026 172410 LDD (RO) ACO 

5111 026 012700 030136 MOV #DDPS,RO SPC 

511 026 172010 DD23: ADDD  (RO),ACO ‘TEST INSTRUCTION 

5113 026740 170205 STFPS RS “GET FPS 

5114 026742 012 030076 MOV #DDDATO,RO “GET THE RESULT 

5115 026746 174010 STD ACO, (ROS 

5116 026 012701 030176 MOV #DDP7,R1 21S IT CORRECT? 

5117 026754 012702 000004 MOV #4 .R2 

5118 026760 022021 DD24: CMP (RO)+, (R1)+ 

5119 026762 001415 BEQ DD27 

5120 026764 012700 030076 MOV #DDDATO,RO :FLO,S FAILURE 

$121 026770 012701 030206 MOV #DDPB RI CONSTANT, (NOT 57) 

5122 026774 012702 000004 MOV =216,042,101 

5123 02 021011 DD25: CMP (RO) , (R1) 

5124 027002 001402 Q DD 

5125 000137 027612 JMP @4DDER7 :DATA ERROR. 

$126 027010 077205 DD26: SOB R2,DD25 

5127 37 027650 JMP 

5128 027016 077220 DD27: SOB R2,DD24 

5129 05 :FPS CORRECT? 

5130 027022 001402 BEQ pp30 

5131 027024 000137 027310 MP aADDERO :BAD FP 

5132 :ACO POS FSRC NEG /AC/</ERSRC/ 

5133 027030 0p30: 

$134 027030 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

5135 027032 012704 003200 MOV #3200..R4 -SET FIO.FIV.AND FD 

5136 027024 170104 LDFPS R 

5137 027040 012737 027060 001236 MOV #0D31 ,a#SIMP2 

5138 027046 012700 030146 MOV #DDPS ,RO :SET ACO OPERAND 

5139 027052 172410 LDD (RO) ,ACO 

5140 027054 012700 030150 MOV #opP§,R =F SPC 

5141 027060 172010 DD31: ADDD  (RO),ACO “TEST INSTRUCTION 

5142 027062 170205 STFPS RS “GET FPS 

5143 027064 012700 030076 MOV A#DDDATO,RO *GET THE RESULT 

5144 027070 174010 STD ACO, (ROS 

5145 027072 012701 030206 MOV #DDPB,R1 -1S IT CORRECT 

$146 027076 012702 000004 MOV #4 ,R2 

$147 027102 022021 DD32: CMP (RO) +, (R1)+ 

$148 027104 001415 BEOQ D :ADD D-SUB 

5149 027106 012700 030076 MOV #DDDATO, RO “FLOWAS FAILURE 

5150 027112 012701 030176 MOV #DDP7 Ri “CON 216 N440 NOT 141 

5151 027116 012702 000004 MOV #4 ,R2 :GET GENERATED 

5152 027122 022021 0D33: CMP (RO) +, (R1)* -FOR THE ALLIGNMENT 

5153 027124 001402 BEQ DD 34 = FLOWS? 

$154 027126 000137 027706 JMP aADDERS “DATA ERROR, D 


—— —_—_—- ee ee 
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CJKDCB.P11  12=MAR-80 15:26 134 D WITH NEGATVE OPRANDS TEST SEQ 0110 
5155 027132 077205 0D34: S08 R2 DD33 

5156 027134 137 027744 MP aAODERIO 

5157 027140 077220 0035: SOB R2 bps? 

5158 027142 052704 000010 BIS #10,R4 

5159 027146 02040 CMP R4.R5 | :FPS CORRECT? 
5160 027150 001402 BEQ #0036 

$161 027152 000137 027310 JMP a#DDERO :BAD FPS 

5162 -ACO NEG FSRC —« POS /FSRC/</AC/ 

5163 027156 bD36: 

5164 027156 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5165 027160 012704 003200 MOV #3200, R4 :SET FIO, FIV, AND FD 
5166 027164 170104 LDFPS 

5167 027166 012737 027206 001236 MOV ADD37, awSTMP2 

5168 027174 012700 030156 MOV #DDPS .RO :SET ACO OPERAND 
5169 02 172410 LOD (RO) ,ACO 

5170 02 012700 030146 MOV #DDP4 ,RO =F SPC 

5171 027. 172010 DD37: ADDD  (RO),ACO “TEST INSTRUCTION 
3172 027210 170205 STFPS R “GET FPS 

5173 027212 012700 030076 MOV #DDDATO,RO “GET THE RESULT 
17% 027216 174010 STD ACO, (RO) 

5176 027220 012701 030206 MOV #DDPB,R1 :I1S IT CORRECT 
5177 027224 012702 000004 MOV g 

5178 30 022021 DD38: CMP (RO) +, (R1)+ 

5179 027232 001415 BEQ DD41 

5180 027234 012700 030076 MOV #DDDATO,RO :ADD SUB 

5181 027240 012701 030176 MOV #DDP7 RI :FLOWS FAILURES 
5182 027244 012702 000004 MOV #4,R T 216,062, 141 
5183 027250 022021 DD39: CMP (RO) +, (R1)+ ‘oor THE ALLIGNMENT 
5184 027252 001402 BEQ DD40 “FLOWS? 

5185 027254 000137 030002 JMP avDDER11 “DATA ERROR. D 
5186 027260 077205 DD40: SOB R2,DD39 

5187 027262 000137 030040 JMP @aADDERI2 =BAD CONSTANT .D 
5188 027266 077220 DD41: SOB R2,DD38 

5189 027270 052704 000010 BIS #10,R4 

5190 027274 020405 CMP RRS :FPS CORRECT? 
5191 027276 001402 BEQ DD42 

5192 000137 027310 :BAD FPS 

5193 000137 030226 DD42:  JMP 

5194 027310 010437 001242 DDERO: MOV R4, rhs :FPS ERROR 

5195 027314 010537 001240 MOV RS _aeSTMPS 

5196 027320 104002 18: ERROR 2 

5197 027322 000137 030226 JMP @YDDDONE 

5198 027326 DDER1: 

5199 027326 012737 030116 001240 MOV #DDP1, aaSTMP3 

5 7334 012737 030116 001242 MOV 


02 #DDP1 MPS 
027342 012737 030076 001244 MOV #DDDATO, a#$TMPS 
#DDP'1 , AAS TMPG 


10400 : 2 
027360 000137 030226 JMP @ADDDONE 


027364 012737 030116 001240 MOV #DDP1 ,aa#STMPS 
027372 012737 030116 001 MP4 
027400 012737 030076 001 

027406 012737 030216 001 MOV 
027414 104002 1$: ERROR 2 


SSBLERERRTS 
=) 


EE —— 
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CJKDCB.P11 12=MAR-80 15:26 734 D WITH NEGATVE OPRANWS TEST SEQ 0111. | 
5211 027416 000137 030226 JMP @*DDDONE 

521 oc 7755 DDER3S: 

$21 0374 01 737 030116 001240 MOV #DDP1, a#$STMP3 
5214 0274 o1 137 030126 00142 MOV #DDP2. 

5215 12737 030076 001244 MOV #DDDATO, aS TMPS 
5216 oS 7c4e 012737 030106 001246 MOV #DDPO , a#$STMP6 
5217 027452 104002 1$: ERROR 2 

5218 027454 000137 030226 JMP DADDDONE | 
5219 027460 DDER4: | 
5220 027460 012737 030126 001240 MOV #DDP2,a#STMP3 
5221 027466 012737 030116 001242 MOV DP1 .a#STMP4 | 
522 747% Sere 030076 001244 MOV #DDDATO, aS TMPS 
5223 027502 030106 001246 MOV #DDPO , a#STMPC 
$224 027510 1$: ERROR 2 

5225 027512 0001 os 030226 JMP @#DDDONE 

5226 027516 DDERS: 

522? 027516 012737 030166 001240 MOV #DDP6 ,a#STMP3 
5228 027524 012737 030136 001242 MOV #DDP3. akSTMPS 
5229 027532 012737 001244 MOV #DDDATO, a¥'$TMP5 
5230 012737 030176 001246 MOV #DDP7, 

5231 027546 104002 1$: ERROR 

5232 027550 000137 030226 JMP @HDDDONE 

5233 027554 DDER6: 

5234 027554 012737 030166 001240 MOV #DDPG aus TPS 
5235 027562 012737 030136 001242 MOV #DDP3, aaSTMPS 
523% 027570 012737 030076 001244 MOV #DDDATO, a#$ TMPS 
5237 027576 012737 030176 001246 MOV #DDP7 , a#STMP6 
5238 027604 104002 1$: ERROR 2 

5239 027606 000137 030226 JMP @eDDDONE 

5240 027612 DDER?: 

5541 027612 012737 030136 001240 MOV #DDP3, aaSTMP3 
5242 027620 012737 030166 001242 MOV ANS TMPS 
5243 027626 012737 030076 001244 MOV #DDDATO, a#$ IMPS 
5344 027634 012737 030176 001246 MOV #DDP7, aASTMPC 
5245 027642 104002 1$: ERROR 2 

5246 027644 000137 030226 IMP @*DDDONE 

5247 027650 DDERS: 

5248 027650 012737 030136 001240 MOV #DDP3, a#STMP3 
5249 027656 012737 030166 001242 MOV 

5250 027664 012737 030076 001244 MOV #DDDATO,av'STMPS 
5251 027672 012737 030176 001246 MOV #DDP7 , a#STMPG 
5252 027700 104002 1$: ERROR 2 

5253 027702 000137 030226 JMP @HDDDONE 

5254 027706 DDERS: 

5255 027706 012737 030156 001240 MOV #DDPS, arstép3 
5256 027714 012737 030146 001242 MOV #DDPS . aaSTMPS 
5257 027722 012737 030076 001244 MOV #DDDATO, QrSTHPS 
5258 027730 012737 030206 001246 MOV #DDPB , a#STMP6 
5259 027736 104002 1$: ERROR 

5260 027740 000137 030226 JMP @*DDDONE 

5261 027744 DDER10: 

5262 02 012737 030156 001240 MOV DDS. aes TMP3 
5263 027752 012737 030146 001242 MOV 4’ awSTMPS 
5 012737 0 001244 MOV DATO. arSTMPS 
5265 027766 012737 030206 001246 MOV #DDPB, a#S TMP 
5266 027774 104002 1$: ERROR 
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CJKDCB.P11  12=MAR-80 15:26 134 ADDD WITH NEGATVE OPRANDS TEST SEQ 0112. 
5267 027776 000137 030226 JMP a@*DDDONE | 
5268 930002 DDER11: | 
$269 0 012737 030146 001240 MOV #DDP4 , aASTMPS 
5270 030010 012737 030156 001242 MOV #DDPS . AAS TMPG 
5271 030016 012737 030076 001244 MOV #ODDATO,a4STMPS | 
3078 030024 012737 030206 001246 MOV #DDPB, AAS TMP6 | 
5273 0300 10400 1$: ERROR 2 | 
$274 030034 000137 030226 JMP @4DDDONE | 
5275 030040 DDER12: 

5276 030040 012737 030146 001240 MOV #DDP4 ,aNSTMP3 | 
5277 030046 012737 030156 001242 MOV #ODPS . AMS TMP 
5278 030054 O12 037 030076 001244 MOV #ODDATO. aaSTMPS 
5279 0 012737 030206 001246 MOV #ODP8 , aASTMP6 
5280 O00 106 1$: ERROR 2 
$281 030072 0001 os 030226 JMP @HDDDONE 
5282 030076 000000 DDDATO: 0 
5283 030100 000000 0 
030102 000000 0 
5285 030104 000000 0 
5286 030106 000000 ppPO: 0 
5287 030110 000000 0 
030112 000000 0 
5289 030114 000000 0 
5290 030116 100200 ppP1: 100200 :=DDP2 
5291 030120 000000 0 
5292 030122 000000 0 
5293 030124 000000 0 
5294 030126 000200 ppP2: 200 :=DDP1 
5295 030130 000000 0 
5 030132 000000 0 
5297 030134 000000 0 
5298 030136 001100 DDP3: 1100 SEXP=4 
5299 030140 000000 0 “FRAC=...110... 
030142 000000 0 
5301 030144 000000 0 
030146 000600 ppP4: 600 SEXP=3 
5303 030150 000000 0 “FRAC=...100... 
5 030152 000000 0 
5305 030154 000000 0 
030156 101100 opP5: 101100 :=DDP3 
5307 030160 000000 0 
5308 030162 000000 0 
5309 030164 000000 0 
5310 030166 100600 DDP6: 100600 :=DDP4 
5311 030170 000000 0 
5312 030172 000000 0 
5313 030174 000000 0 
5314 030176 001000 ppP7: 1000 = DDP3+DDP6 
5315 030200 000000 0 
$316 030202 000000 0 
5317 030204 000000 0 
$318 030206 101000 DDP8: 101000 =DDP5 +DDP4 
5319 030210 000000 0 
5 030212 000000 0 
$321 030214 000000 0 
5322 030216 100400 DpP9: 100400 =DDP1+DDP1 


a. esetiaionnitmapeampsscnpmsmmeel 
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CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12=MAR=-80 15:31 
CJKDCB.P11 12-MAR-80 15:26 134 ADDD WITH NEGATVE OPRANDS TEST 

5323 030220 000000 0 

§324 030222 000000 0 

5325 030224 000000 0 

5326 030226 000005 DDDONE : RESET 

5327 POPTTCTTTTTTTTTITITITITILILL LLL LLL LLL LLL el 
5528  #TEST 35 SUBD TEST 

5330 cs THIS IS A TEST OF THE SUBD INSTRUCTION. 

5331 :* BOTH A POSITIVE AND A NEGAT IVE NUMBER 

5332 * J]§ SUBTRACTED FROM IT SELF 

** 

5334 < RRR ERA RRR EERE EEE EEE HH 
5335 030230 000004 TST35: SCOPE 

5336 : USE POSITIVE OPERANDS 

5337 030232 FEI: 

5338 030232 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5339 030234 012704 003200 MOV #3200,R4 “SET FIU, FIV, AND FD 
5340 030240 170104 LDFPS R4 

5341 030242 012737 030262 001236 MOV #EE2, a#STMP2 

5342 030250 012700 030742 MOV #EEP' RO :SET ACO OPERAND 
5343 030254 172410 LDD (RO) ACO 

5344 030256 012700 030742 MOV #EEPI RO -F SPC 

5345 030262 173010 EE2: SUBD  (RO),ACO ; TEST INSTRUCT ION 
5346 030264 170205 STFPS RS FPS 

5347 030266 012700 030720 MOV #EEDATO.RO “GET THE RESULT 

5348 030272 174010 STD ACO, (RO) 

5349 030274 012701 030730 MOV #EEPO,R1 :IS 17 CORRECT? 
5350 030300 012702 MOV 

5351 030304 022021 EE3: CMP (RO) +, (R1)+ 

5352 030 001415 BEQ EE 

5353 030310 O12 030720 MOV #EEDATO,RO :DID A BAD 

5355 030314 012701 030752 MOV #EEP2,R1 =CONSTANT (NOT 57) 
5356 030 012702 MOV 2 =GET GENERATED 

5357 030324 022021 EEG: CMP (RO)+, (R1)+ *FOR THE ALLIGNMENT 
5358 030326 001402 BEG EES =FLOWS? 

5359 030330 000137 030530 JMP QALEERI “DATA ERROR.D 

5360 030334 077205 EES: SOB R2,EE4 

5361 030 000137 030566 JMP @eEEER2 :BAD CONSTANT .D 
5362 030342 077220 EE6: SOB R2,EE3 

5363 030 052704 000004 BIS #6 ,R4 

5364 030350 020405 CMP R4_RS :FPS CORRECT? 

5365 030352 001402 BEQ EE? 

5366 030354 000137 030512 JMP QWEEERO sBAD FPS 

5367 “USE NEGATIVE OPERANDS 

$368 030360 EE?: 

5369 030360 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5370 030362 012704 003200 MOV #3200,R4 :SET FIO, FIV. AND FD 
5371 030366 170104 LDFPS 

5372 030370 012737 030410 001236 MOV HEEB a#STMP2 

5373 030376 012700 030762 MOV EPS -RO :SET ACO OPERAND 
5374 030402 172410 LDD (RO) ACO 

5375 0 012700 030762 MOV EPS -RO =F SPC 

5376 030410 173010 EE8: SUBD‘ (RO),ACO “TEST INSTRUCTION 
5377 030412 170205 STFPS RS : 

5378 030414 012700 030720 V #EEDATO.RO “GET THE RESULT 


| 
SEQ 0113) 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR-80 15:26 135 


CJKDCB.P11 


5403 


SRR RRERES 


EERE KEENE 
WONOUSWN—O 


R& 


FEEE 
RRND 


174010 
0 


030730 
000004 


030792 


EE9: 
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nae Ter 15:31 
STD ACO, (RO) 
MOV #EEPO,R1 
MOV #4.R2 
CMP {ROD *, (R1)+ 
BEQ FE12 
MOV #EEDATO,RO 
MOV HEEPG RI 
MOV #4.R2 
CMP (RO)+, (R1)+ 
BEQ EE11 
JMP VEEER3 
SOB R2,EE10 
MP avEEER 
SOB R2,EE9 
BIS #4 RG 
CMP R4.RS5 
BEQ EE13 
JMP @HEEER 
JMP @4EEDONE 
MOV R4, aS TMPS 
MOV R5.avSTMPS 
ERROR 2 
JMP @#EEDONE 
MOV #EEP1 ,QASTMPS 
MOV #EEP1 .aaSTMPS 
MOV #EEDATO, a4$SIMPS5 
MOV #EEPO, AAS TMP 
ERROR 2 
JMP @#EEDONE 
MOV #EEP1 ,aaSTMPS 
MOV #EEP1 ,aaSTMPS 
MOV #EEDATO, a#STMPS 
MOV #EEPO, aaS TMP 
ERROR 
JMP @*EEDONE 
MOV #EEP3, aNSTMPS 
MOV WEEP, aaSTMPS 
MOV #EEDATO, a4STMP5 
MOV HEEPO aS TMPG 
ERROR 2 
JMP @#EEDONE 
MOV #EEP3, aaSTMP3 
MOV WEEPS  a#STMPG 
MOV #HEEDATO, a#STMPS 
MOV PO, a#$TMP6 
ERROR 
NP @#EEDONE 
0 ‘ 
0 
0 
0 


SEQ 0114 


:1S IT CORRECT? 


;DID A BAD 
=CONSTANT (NOT 57) 
:GET GENERATED 

:FOR THE ALLIGNMENT 


; FLOWS? 
[DATA ERROR.D 


;BAD CONSTANT .D 


FPS CORRECT? 
;BAD FPS. 
;BAD FPS 
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CJKDCB.P11.  12=MAR-80 1 SUBD TEST SEQ 0115 
5435 030732 000000 0 

5436 030734 000000 00000 

5437 0 000000 0 

5438 030740 000000 } 0 

5439 030742 000200 EEP1: 200 

5440 030744 000000 0 

1 030746 000000 0 

5448 030750 000000 0 

5443 030752 000400 EEP2: 400 

5444 030754 000000 0 

$445 030756 000000 0 

5446 030760 000000 0 

5447 030762 100200 EEP3: 100200 

5448 030764 000000 0 

5449 030766 000000 0 

5450 030770 000000 0 

5451 030772 100400 EEP4: 100400 

5452 030774 000000 0 

5453 030776 000000 0 

$454 031000 000000 0 

5455 031002 EEDONE : 

5456 031002 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
5457 “SEE IF THE USER HAS EXPRESSED 
5458 “THE DESIRE TO CHANGE THE SOF TWARE 
5459 “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
5460 “THE USER TYPED CONTROL G?). 

5461 <RRRR EERE REE RARER EERE E REAR RARER REE ER EERE RETESET EE 
462 ; *TEST 36 NORMALIZE ALGORITHM TEST 

5464 + THIS IS A TEST OF THE NORMALIZ 

5465 ** FLOW ALGORITHM. TwO PATTE 

5466 ® FIRST THE MINIMUM SITUATION REQUIRING ONE 

5467 ‘* LEFT SHIFT AND THEN N THE MAXIMUM SITUATION 

3468 *® REQUIRING 56 SHIFTS. 

** 

5470 *: 2 REE AEAAAAREEEAEREAERAERAAAAREREAAAAAEEEARERAEAAAEAAERAARARE 
5471 031004 000004 1ST36: SCOPE 

5472 -USE DATA PATTERNS THAT REQUIRE ONLY ONE LEFT SHIFT TO NORMALIZE 
5473 031006 FFI: 

5474 031006 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5475 031010 012704 003200 MOV #3200 ,R4 *SET FIO, FIV. AND FD 
5476 031014 170104 LDFPS 

5477 031016 012737 031036 001236 MOV #FF 2, aaSTMP2 

5478 031024 012700 031330 MOV #FFP2,RO =SET ACO OPERAND 

5479 031030 172410 LDD (RO) ACO 

5480 031032 012700 031340 MOV #FFPS,RO =F SPC 

5481 031036 172010 FF2: ADDD  (RO),ACO “TEST INSTRUCTION 

5482 031040 170205 STFPS R “GET FPS 

5483 031042 012700 031300 MOV #FFDATO,RO “GET THE RESULT 

5484 031046 174010 STD j 

5485 031050 012701 031350 MOV #FFPG, RI :1S IT CORRECT 

5486 031054 012702 000004 MOV #4 R2 

5487 031060 022021 FF3: CMP (RO)+, (R1)+ 

5488 031062 001401 BEQ FFG 

5489 031064 000466 BR FFER2 :BAD DATA 

5490 031066 077204 FFG: SOB R2,FF3 
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CJKDCB.P11 12-MAR-80 15:26 T36 NORMALIZE ALGORITHM TEST SEQ 0116 
5491 031070 020405 CMP R4.RS :FPS CORRECT? 
5492 031072 001401 BEQ FFS 
6493 031074 000435 BR FFERO :BAD FPS 
5494 “USE DATA PATTERNS WHICH REQUIRE 56 LEFT SHIFTS TO NORMALIZE 
5495 “THE RESULT | 
5496 031076 FFS 
5497 031076 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS 
5498 031100 012704 003200 MOV #3200,R4 *SET FIU, FIV, AND FD 
5499 0311046 170104 LDFPS 
5500 031106 012737 031126 001236 MOV HEF 6, aASTMP2 
5501 031114 012700 031310 MOV #FFPO,RO :SET ACO OPERAND 
5502 031120 172410 LDD (RO) .ACO 
5503 031122 012700 031320 MOV #FFP1 RO sFSRC 
5504 031126 172010 FF6: ADDD (RO), ACO “TEST INSTRUCTION 
5505 031130 170205 STFPS R “GET FP 
5506 031132 O12 031300 MOV #FFDATO,RO “GET THE RESULT 
5507 031136 174010 STD ACO, (RO) 

5508 031140 012701 031350 MOV #FFP4 RI :]S IT CORRECT 
5509 031144 012702 000004 MOV #4 .R2 

5510 031150 022021 FF7: CMP (RO)+, (R1)+ 

5511 031152 001401 BEQ FF10 

5512 031154 000413 BR FFER1 :BATA 
5513 031156 077204 FF10: SOB R2,FF7 

5574 031160 020405 CMP RG RS :FPS CORRECT? 
5515 031162 001401 BEQ FFI1 

5516 031164 000401 BR FFERO :BAD FPS 
517 031166 000474 FF11: BR FF DONE 

5519 031170 010537 001240 FFERO: MOV RS, avSIMP3 

5520 031174 010437 001242 MOV R4_aeSTMPL 

5521 031200 1 1$: ERROR 

5522 031202 000466 BR FF DONE 

5524 031204 FFER1: 

5525 031204 012737 031320 001240 MOV AFFP1 aaSTMP3 

5526 031212 012737 031310 001242 MOV #FFPO.awSTMP4 

5527 031220 012737 031300 001244 MOV #FFDATO,a#SIMP5 

5528 031226 012737 031350 001246 MOV HEFPL ,aHSTMPC 

5529 031234 104001 1$: ERROR 1 

3330 031236 000137 031360 JMP aw FDONE 

5532 031242 FFER2: 

5533 031242 012737 031340 001240 MOV #FFP3, ars TMP 

534 031250 012737 031330 001242 MOV AFEP2. aASTMPS 

5535 031256 012737 031300 001244 MOV #FFDATO, ar THPS 

5536 031264 012737 031350 001246 MOV AF FPL, akSTMPG 

5537 031272 104001 1$: ERROR 1 

3338 031274 000137 031360 JMP aA F DONE 

5540 

5541 031300 000000 FFDATO: 0 

$542 031302 000000 0 

5543 000000 0 

3346 031306 000000 0 

5546 031310 016000 FFPO: 16000 


7 
9 
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5547 031312 000000 0 
5548 031314 000000 0 

549 8 1316 000001 1 
5550 1359 116000 FFP1: 116000 
5551 031 000000 0 
5552 031324 000000 0 
5553 031326 000000 0 
5554 031 000500 FFP2: 500 
5555 031 000000 0 

556 0351 = 000000 0 
5557 0313 000000 0 

58 031340 100400 FFP3: 100400 
5559 031342 000000 0 

031344 000000 0 
5561 031346 000000 0 
031350 000200 FFP4: 200 sFEPG=FFPO+FFP1 
5563 031352 000000 0 s =F FP3+F FPS 
5564 031354 000000 0 
sage 031356 000000 0 
5567 031360 FF DONE : 
5568 
5569 
5570 031360 TST37: 
5571 
ae 
5574 sRRRARARERRERERR ERE ARERR RAERA REAR A AAR AERA REAR AA RA EARS SS 
5575 {RRR RERER RRR RRA AEE ERA ARRAARAEAAAEEAA AAA AREER AAA ATA EAA TEES 
5576 = FLOATING POINT SECOND PART 
5577 = £ERRAREE RARER ARA EA EERERRE RARER AAA AAAA RARER AREER AAA R AA ER ERS 
Se {RR RAR ERE REAR ER RRR EERE RRR EAR ERE REE EA AERA ARES EEE EES 
5579 
5580 
5581 as 
2eng ssTEST 37 ROUND\ TRUNK TEST 
5584 ce THIS IS A yo OF THE ROUND\ TRUNK 
5585 :* FLOWS. IN PARTICULAR TWO THINGS ARE TESTED: 
5586 :* FIRST A LOND ITION IN WHICH ROUNDI 
5587 :* RESULTS IN THE NEED FOR RENORMALIZATION, AND 
5588 :* SECOND THE PSW CONDITION CODES N AND 
2260 :* 7 BIT COMMBINATIONS 
"* 

5591 itis titi tittle 
d2e8 031360 000004 TST37: SCOPE 
22% :ROUND AND NORMALIZE TEST 
5596 031362 HH1 : 
5597 031362 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5598 031364 012704 003200 MOV #3200 ,R4 sSET FIU, FIV. AND FD 
5599 031370 170104 LDFPS R 
5600 031372 012737 031412 001236 » MOV #HH2 , aASTMP2 
5601 031400 012700 033142 MOV #HHPO ,RO :SET ACO OPERAND 
5602 037404 172410 LDD (RO) ,ACO 
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031612 
031612 


031614 


KEFTI-A FP D 


T2-mAR~B0 15 


012700 
1 


033152 
033132 
033162 
000004 


033132 
033172 
000004 


032152 
032220 


032246 


043200 
031542 
033062 
033212 
033222 
033132 
033202 
000004 
032334 
100004 


032402 


043200 


AG oe 1 MACYTT Naat 


001236 
000244 


ROUND \ TRUNK TEST 
MOV #HHP1 RO =F SPC 

HH2:  ADDD  (RO),ACO : TEST INSTRUCTION 
STFPS RS “GET FPS 
MOV #HHDATO,RO “GET THE RESULT 
STD ACO, (RO} | 
MOV WAP? RI :1S IT CORRECT 
MOV R2 

HH3: CMP {RO s.(R1)* 
BEQ HH6 
MOV #HHDATO,RO :DID FLOW GO 
MOV #HHP3 Ri “FROM STATE 663 
MOV #4 .R2 *TO 313 INSTEAD 

HHG: CMP (RO) +, (R1)+ “OF TO 353 
BEQ HH5 
JMP a#HHERO 

HHS: S08 R2,HHS 
MP R1 

HH6: SOB R2,HH3 
CMP 4.R5 -FPS CORRECT? 
BEQ HH? 
JMP @AHHEROO 

:THIS IS A TEST OF THE ABILITY 

“OF NORMALIZE TO PRODUCE A ZERO EXP. AND 

“OF THE R\T ALGORITHM TO PROPERLY SET THE FPS 

HH7: 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
MOV #043200,R4 ;SET FIU,FIV.AND FD 

LDFPS RG 

MOV #HHB . BAS TMP2 :IN CASE UNDERFLOW 
MOV AHHTRAP ,aaFPVECT “TRAP OCCURS 
MOV HHHPS , *SET ACO OPERAND 
LOD (RO) ACO 
MOV JR =F SPC 

HH8:  ADDD (RO) ,ACO “TEST INSTRUCTION 
STFPS RS “GET FPS 
MOV #HHDATO,RO “GET THE RESULT 
STD ACO, (RO) 
MOV #HHPS ,R} :I1S IT CORRECT 
MOV #4 .R2 

HHO: CMP (RO) (RI) 
BEQ 
JMP TER? 

HH10: SOB 22,HH9 
BIS #100004 ,R4 -FPS CORRECT? 
CMP R4.RS5 
BEQ HH1 1 
JMP 


sTHIS IS A TEST 
sABILITY TO SET 


LPERR 
MOV 


12-MAR-80 15:31 # OAGE 104 


@AHHE R35 
OF THE R\T ALGORITHM'S 
BOTH N AND Z ON A - O RESULT. 


7SET UP THE LOOP ON 
SET FIV, FIV, 


#043200 .R4 


ERROR ADDRESs. 
V, AND FD 


SEQ 0118 
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5659 031 170104 LDFPS RG 

5660 031 012737 031642 001236 MOV #HH12,aaSTMP2 

5661 031630 012700 033242 . MOV #HHPB .R 
031634 172610 LOD (RO) .ACO 

eee 7% 31 01 3700 033252 MOV .RO 

5664 031642 172010 HH12: ADDD  (RO),ACO 

5665 031644 79205 STFPS R5 , 

5666 31646 012700 033132 MOV #HHDATO,RO 

5667 031652 174010 STD ACO, (RO) 

5668 031654 012701 033232 : MOV WHE? .R 

5669 031660 012702 000004 MOV 

5670 031664 022021 HH13: CMP Rae”, 

5671 031666 001415 BEQ HH 

5672 31670 012700 033132 MOV #HHDATO,RO 

5673 031674 012701 033202 MOV #HHPS ,R1 

5674 031700 012702 000004 MOV #4 R2 

5675 031704 022021 HH14: CMP (RO) +, (R1)+ 

5676 031706 001402 BEQ HH15 

77 031710 000137 032450 JMP R 

5678 031714 077205 HH15: SOB R2,HH14 

5679 031716 000137 032516 MP RS 

5680 031722 077220 HH16: SOB R2,HH13 

5681 031724 052704 100014 BIS #100014 ,R4 

5682 031730 020405 CMP 4,R5 

5683 031732 001402 BEQ HH17 

5684 031734 137 032564 JMP QAHHERS 

5685 :TEST THAT CC ARE CLEARED BY R\T 

5686 031740 HH17: 

5687 031740 104414 LPERR :SET UP 

5688 031742 012704 000200 MOV #00200,R4 

5689 1746 170104 LDFPS R4 

5690 031750 012737 031776 001236 MOV #HH18,aaSTMP2 

5691 031756 012737 062524 000244 MOV #F PSPUR avFPVECT 

5692 031764 012700 033242 MOV ‘ 

5693 031770 172410 LDD {RO ACO 

5694 031772 012700 033242 MOV ; 

5695 031776 172010 HH18: ADDD  (RO),ACO 

569% 032000 170205 STFPS R 

5697 032002 012700 033132 MOV #HHDATO RO 

5698 032006 174010 STD ACO (ROS 

5699 032010 012701 033262 MOV meso 

5700 032014 012702 000004 MOV 4 

5701 032020 022021 HH19: CMP i 

5702 032022 001402 BEQ 

5703 032024 000137 032632 JMP 

5704 032030 077205 HH20: SOB R2.HH19 

5705 032032 052704 000000 BIS : 

5706 032036 020405 CMP R4.R 

5707 032040 001402 BEQ HH? 1 

5708 032042 000137 032700 JMP @AHHERS 

5709 -TEST THAT N IS SET BY R\T 

5710 032046 HH21: 

5711 032046 104414 LPERR :SET UP 

5712 032050 012704 003200 MOV #3200,R4 

5713 032054 170104 LDFPS Ré 

5714 032056 012737 032076 001236 MOV #HH22 , a#STMP2 


;SET ACO OPERAND 


;FSPC 

: TEST INSTRUCTION 
7GET FPS 

:GET THE RESULT 


:1S IT CORRECT 


FPS CORRECT? 


THE LOOP ON ERROR ADDRESS. 


:SET FIV, FIV, AND FD 


:SET ACO OPERAND 
sFSPC 

>TEST INSTRUCTION 
:GET FPS 

:GET THE RESULT 
:I1S IT CORRECT 


FPS CORRECT? 


THE LOOP ON ERROR ADDRESS. 
sSET FIV. FIV. AND FD 


SEQ sa 


LLL LLL PLL 
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CJKDCB.P11 12=MAR-80 15:26 OUND\TRUNK TEST SEQ 0120 
5715 032064 012700 033212 MOV #HHPS ,RO :SET ACO OPERAND 
5716 032070 172410 LDD (RO) ACO 
$717 0 012700 033212 MOV #HHPS ,R :F SPC 
5718 032076 172010 HH22: ADDD  (RO),ACO “TEST INSTRUCTION 
5719 032100 170205 STFPS R | “GET FPS 
5720 032102 O12 033132 MOV #HHDATO, RO “GET THE RESULT 
5721 032106 174010 STD ACO, (RO) 
$722 032110 012701 033272 MOV WHET) RI :1S IT CORRECT 
5723 032114 012702 000004 MOV R2 
5724 0 120 022021 HH23: CMP tROOe, (RI) ¢ 
5725 032122 00140 BEQ HH24 
3726 0321¢4 000137 032746 JMP 
5727 032130 077205 HH24: SOB 
5728 032132 052704 000010 BIS 
5729 032136 020405 CMP -FPS CORRECT? 
5 032140 001402 BEQ 
$731 032142 000137 033014 JMP 
5 032146 000137 033302 HH25:  JMP 
$733 032152 HHERO: 

5734 032152 010537 001252 MOV 
5735 37 001254 MOV 
73% 032162 O19737 033152 001240 MOV 
5737 012737 033142 001242 MOV 
& 032176 012737 033132 001244 MOV 
5739 032204 012737 033162 001246 MOV 
5740 032212 104002 1$: ERROR 
5741 032214 000137 033302 JMP 
5742 032220 HHER1 : 
5743 032220 010537 001252 MOV 
7h 032226 010437 001254 MOV 
5745 230 019737 033152 001240 MOV 
5746 032236 012737 033142 001242 MOV 
5747 032244 012737 033132 001244 MOV 
5748 032252 012737 033162 001246 
5749 032260 104002 1$ ERROR 
032262 000137 033302 JMP 
5751 032266 HHEROO: 
5752 032266 0610537 001252 MOV 
5753 032272 010437 001 MOV 
5 032276 012737 033152 001240 MOV 
5755 032 012737 033142 001242 MOV 
5 032312 033132 001244 MOV 
5757 032 012737 033162 001246 MOV 
5758 032326 1$ ERROR 
5759 032330 000137 033302 JMP 
5760 032334 HHER2: 
5761 032334 010537 001252 MOV R5. ae#STMP10 
5762 032340 010437 0012 MOV R4.aeSTMP11 
5763 344 012737 033222 001240 MOV aa MP3 MP3 
5764 032352 012737 033212 001242 MOV #HHPS . ANS TMPS 
5765 012737 033132 001244 MOV #HHDATO, aa$TMPS 
5766 032366 012737 033202 001246 MOV HHHPS , AS TMP 
$767 032374 104002 1$: ERROR 2 
5768 032376 000137 033302 JMP @4HHDONE 
5769 032402 HHER3 : 
5770 032402 010537 001252 MOV R5,aaSTMP10 
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1$: 


HHERS : 


1$: 


HHER6: 


HHER7 : 


1$: 


HPIERS : 


1$: 


HHERS: 










12=MAR=80 15:31 
OUND\TRUNK TEST 

MOV R4,a4STMP11 

MOV OAS TMP 

MOV HHHPS . AAS TMPG 

MOV #HHDATO, ar$ MP5 

MOV #HHPS , aa'$ TMP 

ERROR 2 

JMP QAHHDONE 

MOV RS, a¥STMP10 

MOV R4 aASTMP11 

MOV HHHPS , aS TMP 

MOV #HHPB . a#S TMP 

MOV #HHDATO, a STMPS 

MOV #HHP7 , aa$T 

ERROR 2 

JMP @AHHDONE 

MOV R5,a#STMP10 

MOV RL aeSTMP11 

MOV #HHPS , AAS TMP 

MOV HHHPB ; aS TMP 

MOV #HHDATO aS TMPS 

MOV #HHP7 , aa'S TMP6 

ERROR 

JMP @AHHDONE 

MOV RS, avSTMP10 

MOV RG. aASTMP11 

MOV HHHPS , aS TMP3 

MOV #HHPB. aaSTMPS 

MOV #HHDATO, aS TMPS 

MOV #HHP7 , aS TPG 

ERROR 

JMP @HHDONE 

MOV RS, aeSTMP10 

MOV R4. aaSTMPT 1 

MOV #HHPB, 3 

MOV #HHPB. aes 

MOV #HHDATO, aS TMPS 

MOV WHHP 10, a#STMP6 

ERROR 2 

JMP @*HHDONE 

MOV RS, awSTMP10 

MOV R4. aeSTMPT1 

MOV : 

MOV 


TMP4 
#HHDATO, aS TMPS 
#HHP 10, aaSTMP6 


@#HHDONE 

RS ,a#STMP10 
R4.aWSTMP11 
#HHPS , a#STMPS 
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— 


SEQ 0121 


————— 
— 


eee 
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CJKDCB.P11 12-MAR-80 15:26 137 ROUND\TR TEST SEQ 0122 
5827 032764 012737 033212 001242 MOV #HHPS , aa 
5828 032772 012737 033132 001244 MOV #HHDATO, a ETMPS 
5829 03 O12 737 033272 001246 MOV #HHP11, a4'S TMP 
5830 033006 1$: ERROR 2 
5831 033010 0001 033302 JMP QHHHDONE 
5832 033014 HHER10: 4 
5833 033014 010537 001252 MOV R5,a#$7MP10 
5834 0 010437 001 54 MOV RG. aaSTMP11 
5835 0 012737 033212 001240 MOV 5 ,a#STMP3 
5836 0 012737 033212 001242 MOV #HHPS , aS TMPG 
5837 033040 012737 033132 001244 MOV #HHDATO, aS TMPS 
5838 033046 012737 033272 001246 MOV 11, a#STMP6 
5839 033054 104002 1$: ERROR 
5840 033056 000137 033302 JMP @AHHDONE 
5841 033062 013703 001236 HHTRAP: MOV aASTMP2,R3 WAS THE TRAP TO 244 
5842 933066 062703 000002 ADD #2,R3 “ON THE INSTRUCTION 
5843 033072 020316 CMP R3, (SP) “BEING TESTED? 
5844 033074 001402 BEQ 1$ 
5845 033076 000137 062524 JMP a#FPSPUR 
5846 033102 011637 001236 1$: MOV (SP), a4#$TMP2  ;:FAILURE OF FPS INTERRUPT 
5847 “DISABLE BIT (FID=1) 
5848 033106 022626 CMP (SP) +, (SP)+ *TO INHIBIT TRAP. 
5849 033110 170201 STFPS RI 
033112 010137 001240 MOV R1,a¢STMP3 
$851 033116 170301 STST R 
5852 033120 010137 001242 MOV R1. aaSTMP4 
5853 033124 104002 2$: ERROR 2 
$854 033126 000137 033302 JMP 
5855 033132 000000 HHDATO: 0 
5856 033134 000000 0 
5857 033136 000000 0 
033140 000000 0 
5859 033142 000452 HHPO: 452 
33144 125252 125252 
5861 033146 125252 125252 
033150 125253 125253 
5863 033152 000252 HHP1: 252 
33154 125252 125252 
5865 033156 125252 125252 
033160 125252 125252 
5867 162 000600 HHP2: 600 :HHPO + HHP1 WITH 
033164 000000 9 “PROPER NORMALIZATION 
5869 033166 000000 0 
5870 033170 000000 0 
5871 033172 000400 HHP3: 400 :HHPO + HHP1 WITH 
5872 033174 000000 0 *BAD NORMALIZATION 
5873 033176 000000 0 
5874 033200 000000 0 
5875 033202 000000 HHP4: 0 
5876 033204 000000 0 
033206 000000 0 | 
5878 033210 000000 0 
5879 033212 100200 HHP5: 100200 
033214 000000 0 
5881 033216 000000 0 
5882 033220 000000 0 


EL LLL LLL LLL LLL ee 
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5883 0 335? 000300 HHP6: 300 
5884 0 4 000000 0 
5885 03 000000 0 
5886 0 000000 0 
5887 0 100000 HHP7: 100000 -tHHP7 = HHP8& + HHP9 
5888 03 000000 0 ; = HHPS + HHP6 
5889 033236 000000 0 
5890 033240 000000 0 
5891 0 2 000200 HHP8: 200 
$892 033244 000000 0 
5893 033246 000000 0 
5894 03 000000 0 
5895 033252 100300 HHP9: — 100300 
5896 033254 000000 i "2 
5897 033256 000000 0 
5898 033260 000000 0 
5899 033262 000400 HHP10: 400 sHHP10 = HHP8 + HHPS 
5900 033264 000000 0 
5901 033266 000000 0 
5902 033270 000000 0 
5903 033272 100400 HHP11: 100400 sHHP11 = HHPS + HHP5 
5904 033274 000000 0 
5905 033276 000000 0 
5906 033300 000000 0 
5907 033302 HHDONE : 
5908 033302 1044135 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
5909 >SEE IF THE USER HAS EXPRESSED 
5910 ; THE DESIRE TO CHANGE THE SOFTWARE 
5911 >VIRTUAL CONSOLE SWITCH a (HAS 
5912 > THE USER TYPED CONTROL G?) 
214 
5915 ARERR EAR EERE EAAAEAAEAERAEEAERERRARARAEEAEEREKEEEEEEE 
aar5 : TEST 40 OVER\UNDER TEST 
5918 « eTHIS 1S A PARTIAL TEST OF THE OVER\UNDER 
5919 >*FLOWS. ONE OVERFLOW AND TWO UNDERFLOW 
5920 :*CONDITIONS ARE CHECKED. THE REMAINING 
5921 : *UNDERFLOW COND. AND THE INING OVERFLOW 
5922 ; *COND. WILL BE CHECKED LATER USING THE 
5923 :>*XXX INSTRUCTION. HERE EACH CONDITION TESTED 
5924 #15 CHECKED BOTH WITH TRAPS ENABLED 
5925 = *(FIU=1 OR FIV=1) AND ALSO WITH TRAPS 
2986 : sDISABLED (Flu=0 OR Fiv=0). 
5928 vdaenie cata eea kak demkbaeusbabeseusaeboerennetsesecneeecenecane 
2585 033304 000004 15140: SCOPE 
5931 TEST OVERFLOW CONDITION WITH TRAP DISABLER FIVv=0 
5932 033306 GG1: 
5933 033306 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
5934 033310 012704 000200 MOV #200 RS “CLEAR FIU, FIV, AND SET FD 
5935 033314 170104 LDFPS R& 
5936 4033316 012737 033344 MOV 4GG2 ,a#STMP2 
5937 033324 012737 034376 MOV #GGERO, aaFPVECT 
5938 033332 012700 03615 MOV #GGP5 ,RO :SET ACQ OPERAND 


SEQ 0125 
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036150 
036100 
036160 
000004 
034474 


000006 


034542 


001200 
033452 


001236 
000244 


GGe: 


GG3: 


GG4: 


GG5: 


GG6: 


GG7: 


1$: 


GG8: 


GG9: 


1$: MO 
:CHECK FEC 
STST 


12-MAR-80 15:31 
OVER\UNDER TEST 


LDD (RO) ACO 
MO #GGP5 RO 
ADDD (80), ACO 


MOV #GGDATO,RO 
STD ACO, (ROS 
MOV #GGP6,R1 


MCV #4 R2 

CMP (RO) +, (R1)+ 
BEQ GG4 

MP Q4GGER1 

S0B R2,GG3 

BIS #6 RS 

CMP R4-RS5 

BEQ 


LPERR 
MOV #1200.R4 
LDFPS R4 
MOV #GG6, a#$TMP2 
MOV #GG7 .a#F PVECT 
MOV #GGP5 ,RO 
LOD (RO) .ACO 
MOV #GGP5 ,RO 
ADDD _— (RO) ,ACO 
CFCC 
MOV #GGDATO,RO 
STD ACO, (RO) 

_ JMP @#GGER 
MOV @STMP2 RZ 
ADD #2,R 
CMP R3, (SP) 

BEQ 1$ 
JMP @¥FPSPUR 
MOV (SP) ,aaSTMP2 
CMP SP)+, (SP) + 
STFPS 
MOV SGDATO RO 
STD ACO, (RO) 
MOV #GGPG RI 
MOV R2 
CMP tRb)s. (R1)* 
BEQ GG9 
a) 
BIS #100006 .R4 
CMP R4.R5 
BEO 1$ 
JMP BYGGERG 

V #10,R4 

R5 


CMP R4,R5 


a 
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SRC 
Test INSTRUCTION 
7GET FPS 
SGET THE RESULT 


:1S IT CORRECT 


FPS CORRECT? 


JMP @AGGER2 
44 — WITH TRAPS ENABLED 


:SET UP THE LOOP ON ws ADDRESS. 
:CLEAR FIU, SET FIV, FD 


:SET ACO OPERAND 


sF SPC 
TTEST INSTRUCTION 
:NO OVERFLOW TRAP OCCURED 


sCHECK STACK DATA 


:GET THE RESULT 
71S IT CORRECT 


EXACT ZERO RESULTED IF met eG 
[FPS CORRECT?, CHECK FER, FZ, 


SEQ 0124 


CJKDCB-A_ KEF11~A FP D 
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Beeperes 


See 
WN 


BUS CEO ESAS Sze cece 


033574 
033576 
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1AG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 
12=MAR-80 15:2 T40 OVER\UNDER TEST 
402 BEO GG10 
$0013 034660 a4GGERS 
; CHECK UNDER FLOW CONDITION WITH 
; TRAPS DISABLED (FIU = 0) 
104414 LPERR :SET UP T THE LOOP ON ERROR ADDRESS. 
012704 000200 MOV #0200,R4 “SET FIU, FIV, AND FD 
170104 LDFPS R 
012737 033640 001236 MOV #GG11,a"STMP2 
012737 034774 000244 MOV WOGER? , aaFPVECT 
012700 036120 MOV #GGP2 ,RO :SET ACO OPERAND 
172410 LDD (RO) .ACO FSRC 
012700 036130 MOV #GGP3.R 
172010 GG11: ADDD  (RO),ACO TEST INSTRUCTION 
170205 STFPS RS “GET FPS 
012 036100 MOV #GGDATO,RO “GET THE RESULT 
174010 STD ACO, (RO) 
012701 036160 MOV #GGP6,R1 :IS IT CORRECT 
012702 MOV #4R2 
022027 GG12: CMP (RO) +, (R1)+ 
001402 BEQ 6613 
000137 035072 JMP @4GGERB 
077205 6613: SOB Re. GG12 
052704 000004 BIS R4 :FPS CORRECT? 
020405 CMP Re “RS 
001402 BEQ GGi4 
137 035140 JMP @#GGERD 
; CHECK UNDERF L Ow CONDI T 10N WITH 
we > TRAP ENABLED (FIU = 1) 
104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
012704 002200 V #2200,R4 “SET FIU, FIV, AND FD 
170104 LDFPS R4 
012737 033746 001236 MOV #GG15,.a#$TMP2 
012737 033764 000244 MOV #G6G16,a#F PVECT 
012700 03612 MOV ; :SET ACO OPERAND 
172410 LOD (RO) ACO “FSPC 
012700 036130 MOV #GGP3 RO 
172010 GG15: ADDD  (RO),ACO = TEST INSTRUCTION 
170000 CFCC 
012700 036100 MOV #GGDATO,RO 
174010 STD ACO, (RO) 
137 035206 IMP R 
013703 001236 GG16: MOV aNSTMP2 RS 
703 2 ADD RS 
021603 CMP (SP) ,R3 
001402 BEQ i$ 
137 062524 JMP avFPSPUR 
011637 001236 1$: MOV (SP) , a#STMP2 
22626 CMP (SP)*, (SP)+ 
170205 STFPS -GET FPS 
12700 036100 MOV NGEDATO.R “GET THE RESULT 
174010 STD nos 
012701 036170 MOV :I1S IT CORRECT 
012702 MOV 
022021 GG17: CMP Ree, 


SEQ 0125. 


nn 


J_10 
PAGE ile 


CJKDCB-A KEF11=-A FP DIAG PART 1 MACY11 30A(1052) 12=-MAR-80 15:31 
CJKDCB.P11 12=-MAR-80 15:26 T40 OVER\UNDER TEST SEQ 0126 
6051 034034 001402 BEQ GG18 

6052 034036 000137 035254 JMP QNGGER11 

6053 034042 077205 GG18: SOB R2,GG17 

6054 034044 052704 100000 BIS #160000,R4 

6055 034050 0 05 CMP R4,R5 sFPS CORRECT? 
6056 034052 001402 BEQ 

6057 034054 137 035322 JMP MAGGER12 

6058 034060 2$: 

6059 034060 012704 000012 1$: MOV #12,R4 

6060 >CHECK FEC 

6061 0 170305 STST RS 

6062 034 05 CMP R4 RS 

034070 001402 BEQ GGi9 

6064 034072 177 001272 aGGER13 

6065 : CHECK UNDERF LOW CONDITION WITH TRAPS 

6066 “DISABLED (FIU = 0) 

6067 034076 6619: 

6068 034076 104414 LPERR :SET UP THE LOOP, 0 ON ERROR ADDRESS. 
6069 034100 012704 000200 MOV #0200,R4 “SET FIU, FIV, 
6070 034104 170104 LDFPS R4 

6071 024106 012737 034134 001236 MOV #GG20,a"STMP2 

6072 034114 012737 035436 000244 MOV #GGER14 ,aaFPVECT 

6073 034122 012700 036120 MOV #GGP2 ,RO :SET ACO OPERAND 
6074 034126 172410 LDD (RO) .ACO 

6075 034130 O12 036200 MOV #GGPB, :F SPC 

6076 034134 172010 GG20: ADDD  (RO),ACO “TEST INSTRUCTION 
6077 034136 170205 STFPS R *GET FP 

6078 034140 012700 036100 MOV A#GGDATO,RO “GET THE RESULT 
6079 034144 174010 STD ACO, (RO) 

6080 034146 012701 036160 MOV #GGPG.R :I1S IT CORRECT 
6081 034152 012702 MOV R2 

6082 034156 022021 GG21: CMP mene, 

6083 034160 001402 BEQ GG22 

6084 034162 000137 035534 JMP @FGGER15 

6085 034166 0 GG22: SOB R2, 6621 

6086 034170 052704 000004 BIS #4 R :FPS CORRECT? 
6087 034174 05 CMP R4 Re 

6088 034176 001402 BEQ GG23 

6089 034 137 035602 JMP @AGGER16 

6090 :CHECK UNDERFLOW CONDITION WITH TRAP 
6091 “ENABLED (FJU = 1) 

6092 034204 6623: 

6093 034204 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
60% 034206 012704 002200 MOV #2200, R4 “SET FIU, FIV, AND FD 
6095 034212 170104 LDFPS 

609% 034214 012737 034242 001236 MOV ses at 

6097 034222 012737 034260 000244 MOV 5. aerPvecr 

6098 034230 012700 036120 MOV :SET ACO OPERAND 
6099 034234 172410 LDD <8) “tO 

6100 034236 O12 036200 MOV #GGPB8 RO sFSRC 

6101 034242 172010 6624: ADDD  (RO),ACO “TEST INSTRUCTION 
6102 034244 17 CFCC 

6103 034246 012700 036100 MOV #GGDATO.R 

6104 034252 174010 STD ROS 

6105 034254 137 035650 MP a ogeRT? 

6106 034260 013700 001236 6625: MOV av$TMP2,RO 





CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
~80 15:26 140 


CJKDCB.P11 


6110 


od ed eed aed aed ed eed ed eed 
WDONOUEWR 


12-MAR- 


000002 


062524 
0012 


036100 
036210 
000004 
035716 


100004 


001456 
000012 


1$: 


GG26: 


GG27: 


18: 


K 10 
12-MAR-80 15:31 PAGE 113 
OVER\UNDER TEST 


a5 oh 
CMP eat 
JMP a4F PSPUR 
MOV (SP) ,a&#STMP2 
(SP) +, (SP)+ 
f ;GET FPS 
MOV #GGDATO,RO :GET THE RESULT 


STD ACO, (RO) 
MOV #GGP9,R1 :1S IT CORRECT 


MOV #4 R2 

CMP (RO)+, (R1)+ 

BEQ GG27 

aay 

BIS #100004 ,R4 

CMP R4,RS :FPS CORRECT? 
JMP GGER20 

MO 12,R4 


V ‘d 
CHECK FEC 


SEQ 0127 


L 10 ay 
CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A( 1052) 12=MAR=80 15:31 PAGE 114 | 
CJKDCB.P11_  12=MAR=80 15:26 T40 OVER\UNDER TEST SEQ 0128 


6128 034360 170305 STST R5 


6129 034362 020405 CMP RZ.RS 
6130 034364 00140 BEQ GG28 

6131 034366 000167 001372 JMP GGER19 

6135 034372 000137 036220 GG28:  JMP @4GGDONE 

6135 034376 013701 001236 GGERO: MOV QASTMP2,R1 
6136 034402 062701 000002 ADD #2,R1 

6137 034406 020116 CMP R1. (SP) 

6138 034410 00140 BEQ 10 

6139 034412 000137 062524 S$: MP AHF PSPUR 

6140 034416 10$: 

6141 034416 170301 sTStT Ai 

6142 034420 020127 000010 CMP R1,410 

6143 034424 00137< BNE S$ 

6144 034426 022626 CMP (SP) +, (SP)+ 
6145 034430 012700 036100 MOV #OGDATO RO 
6146 034434 174010 STD j 

6147 034436 012737 036150 001240 MOV mechs, aeSTMP3 
6148 034444 012737 036150 001242 MOV TMP 
6149 034452 012737 036100 001244 MOV aRDATO. arSTHPS 
6150 034460 012737 036160 001246 MOV #GGP6,, ak S TMP 

6751 034466 104001 1S: ERROR 

6152 034470 000137 036220 JMP a@4GGDONE 

6154 034474 GGER1: 

6155 034474 010537 001252 MOV R5, avSTMP10 
6156 034500 010437 001254 MOV R4.avSTMP11 
6157 034504 012737 036150 001240 MOV #GGP5 ,a#STMP3 
6158 034512 012737 036150 001242 MOV #GGP5 , aNSTMPS 
6159 012737 036 001244 MOV #GGDATO, av'STMPS 
6160 034526 012737 036160 007246 MOV #GGP6, ak 
6161 034534 104002 1S: ERROR 2 

6162 034536 000137 036220 JMP @YGGDONE 

6164 034542 GGER2: 

6165 034542 010537 001252 MOV RS, avSTMP10 
6166 0 010437 001254 MOV 4° aeSTMP1 1 
6167 034552 012737 036150 001240 MOV #GGP5 ,awS IMPS 
6168 12737 036150 001242 MOV #GGP5 ae 
6169 012737 036100 001244 MOV #GGDATO, af STMPS 
6 034574 012737 036160 001246 MOV #GGP6 aa 
6171 104002 1$ ERROR 2 

6172 034604 000137 036220 JMP @YGGDONE 

6174 034610 GGER3: 

6175 034610 010537 001252 MOV RS, atSTMP10 
6176 034614 010437 001254 MOV R4.aeSTMP11 
6177 012737 036150 001240 MOV 5, atSTMP3 
6178 034626 012737 036150 001242 MOV 5° aaSTMP4 
6179 012737 036100 001244 MOV #GGDATO, aS TMPS 
6180 034642 012737 036160 001246 MOV aa$tT 
6181 034650 104002 1$: ERROR 

6182 034652 000137 036220 JMP aAGGDONE 


CJKDCB—A KEF11-A FP DIAG PART 1 
CJKDCB.P1 12 26 


“MAR-80 15: 


010537 
010437 
012737 

012737 


MACY11 30A(1052) 
T40 


GGER4: 
GGERS: 


1$: 


GGER6: 


1$: 


GGER?: 


5$: 
10$: 


1$: 


GGER8: 


1$: 


GGER9Y: 


mM 10 
12-MAR-80 15:31 PAGE 115 
OVER\UNDER TEST 


ELELELELEE 


EEE EE 


GGER1 


RS ,@#STMP10 
aS 


#GGP5, MP4 
#GGDATO ,a@#$TMP5 
as 
@4#GGDONE 


RS ,a#STMP10 


R1,412 
$ 


(SP) +, (SP) + 
ACO, (RO) 


R5,aeSTMP10 
RG. a#STMPT 1 
#GGP3,aaSTMP3 
TMPZ 
#GGDATO. aa'STMP5 
#GGP6 ,a#STMPS 
@#GGDONE 






RS, a4$TMP10 


#GGP2 , a#STMPS 


a —— 


SEQ 0129 


| 


ee —— 


CJKDCB=A_KEF11-A FP DIAG PART 1 
80 15:26 


CJKDCB.P11 


03 
035314 


5466 
035470 


12-MAR~ 


012737 
012737 
04 


000137 


S 


022626 
012700 


MACY11 30A(1052) 
T40 


1$: 


GGER10: 


1$: 


GGER11: 


1$: 


GGER12: 


1$: 


GGER13: 


N 10 
12-MAR-80 15:31 PAGE 116 
OVER\UNDER TEST 


#GGDATO ,a#$TMP5 
#GGP6 ,a#STMP6 


2 
@¥GGDONE 


R5 ,@ASTMP10 
R4 aw 


— 
@4GGDONE 


RS, a#STMP10 
R4. aASTMP11 
#GGP3 .@ASTMP3 
#GGP2 .aaSTMPS 
#GGDATO, a#'$TMPS 
#CGP? .aASTHPE 
@4GGDONE 


ate -@4STMP10 


2 
@4GGDONE 


(SP)+,(SP)+ 
#GGDATO,RO 


B 11 
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CJKDCB.P11 12-MAR-BO 15:26 140 OVER\UNDER TEST 
035474 174010 STD ACO, (RO) 
5476 ot 7 0 110 001240 MOV #GGP! ,aaSTMP3 
2293 7 130 001242 MOV #GGP3, aaSTMPS 
23) ot 7 100 001244 MOV #GGDATO a#STMPS 
5 12737 036160 001246 MOV #GGP6 , aS TMPG 
23 1 $ 1$: ERROR 2 
5 0001 036220 JMP @*GGDONE 
035 - GGER15: 
010537 001252 MOV RS, a#STMP10 
10437 001254 MOV R4, aSTMP11 
544 012737 001240 MOV ,@ASTMP3 
035552 012737 001242 MOV : 
10 035 12737 036100 001244 MOV #GGDATO ,a#$TMP5 
11 8 3290 01 036160 001246 MOV 9 
¢ 5574 Sonos 1$: ERROR 
6 7 035576 0001 036220 JMP @4GGDONE 
15 0 3008 GGER16: 
18 035602 010537 001252 MOV RS ,a#STMP10 
17 035606 010437 001254 MOV 4° aASTMP1 1 
6318 ed 012737 001240 MOV 2, @4STMP3 
6319 OSes 001242 MOV #GGPE ,a#ST 
6 3 1¢737 036100 001244 MOV A#GGDATO ,a#$TMP5 
1 0396 012737 036160 001246 MOV #GGP6, 
6 ; 035642 104002 1$: ERROR 2 
OS 7 035644 000137 036220 JMP @4GGDONE 
5 035650  GGER17: 
035650 010537 001252 MOV RS ,a4STMP10 
035654 010437 001254 MOV R4. avSTMP11 
6328 03 O1s 7 20 001240 MOV #GGP ge ae 
035666 012757 056200 001242 MOV - #GGPB, aw’STMP 
0 3674 012737 036100 001244 MOV #GGDATO, SYS TMPS 
6331 035 ‘ 012737 036210 001246 MOV #GGP9 , AAS TMP 
035710 10400 1$: ERROR 2 
633 035712 000137 036220 JMP @4GGDONE 
O33e 035716 GGER18: | 
6336 035716 010537 001252 MOV RS ,a#STMP10 
6337 035722 010437 001254 MOV R4. aeSTMP11 
38 03 012737 036 001240 MOV ,@4STMP3 
9 3 012737 0O 001242 MOV #GGP8 ,a#S TMP 
035742 012737 036100 001244 MOV AGGDATO ,a@#$TMP5 
6341 5750 012737 036210 001246 MOV P 
oo 035756 104002 1$: ERROR 2 
6343 035760 000137 036220 JMP @4GGDONE 
6345 035764 GGER19: 
6346 035764 010537 001252 MOV RS, a4STMP10 
6347 035 010437 001254 MOV R4, avSTMP11 
6348 035774 012737 036120 001240 MOV #GGP2, Bk 
6349 0 012737 0O 001242 MOV GP8 , A#STMP 
6350 036010 012737 036100 001244 MOV #GGDATO, arsine 
6351 036016 012737 036210 001246 MOV #GGP9 , a#$TMP6 


CUKDCB-A KEF11-A FP DIAG 536 1 


CJKDCB.P11 
635 eee 
6353 0360 

O52 


AAAO 
wv 
elojlelelolele) 


6379 


ee 


SERERES EER Ras aR URE BORER 


zg 
S 


1 


12-MAR-80 1 


036220 


001252 


MACY11 30A(1052) 
T40 


1$: 


GGER20: 


GGP1: 


GGP2: 


GGP3: 


GGP7: 


GGDONE : 


12-MAR-80 


C 11 
15:31 PAGE 118 


OVER\UNDER TEST 


ERROR 
JMP 


ooo 


200 


NOoo—-oo 
2 8 


ooeo COoooCceoo 
es 
S 


© 


Conger? 
So 


2 


R5 ,@#STMP10 


es , aS TMP 
@4GGDONE 


OVER FLOW = GGP5 + GGP5 


ee RESULT 
: UNDER FLOW RESULT 


= GGP3 + GGP2 (FIU = 1) 


SEQ 0132 


CUKDCB=A KEF11-A FP DIAG PART 1 MACY11 apni We) 
12-MAR=-80 15:26 


CJKDCB.P11 


08 


ggRanenarersee 
DONAUPWWUOD 


8S 


BS RER 


eats g 


ERSEOUSDEDSDEDEIEEREREREREEEDISESES 


036220 


104413 


012700 
172410 


-80 | 


000200 
037640 
037650 
036254 
037654 
037216 
037630 
037720 
000004 
037650 
037630 


037256 
037306 
000200 


037354 


000200 


037640 


001256 


T40 


12-MAR-80 


15:31 


OVER\UNDER TEST 


RSE TUP 


D 11 
PAGE 119 


SEQ 0153 


+ G0 INITIALIZE THE FPS AND STACK; AND 
;SEE IF THE USER HAS ea 

; THE DESIRE TO CHANGE THE SOFTWARE 

VIRTUAL CONSOLE SWITCH —_ (HAS 
‘THE USER TYPED CONTROL G?) 


er TTT CTC CC CCCCCCLCCACACAALAAAAE CEES EEE EEE RRR RRR RARER ASA 


LDCFD AND LDCDF TEST 


“*TEST 41 


.* 4 
— IS A TEST OF LDCFD AND LDCDF. 


inland ddatanaadsbeertebendsersaqenngeraaesereeenesoces 


1$T41: SCOPE 
a FOR CORRECT AUTO INCREMENT CONSTANT. 


HX2: 
HX3: 
HX4: 
HX5: 


HX6: 
HX7 : 


;NOW 
HX8: 


#4R 
(RI)+, (RO)* 


HX 
#HXP2 ,R1 
#HXDATO,RO 


a6 
(R1)+, (RO) + 
HX 


@AHXE 
LDCDF 
MOV #200,R4 
LDFPS R4 


#HXP1 RO 
(RO) ,ACO 


:SET UP THE LOOP ON ERROR ADDRESS. 
:SET LONG INTEGER MODE 


32S RO CORRECT 


:GET FPS 
:GET ACO 
:SEE IF RESULT IS 
CORRECT 


;DID FD GET 
COMPLIMENTED? 


FPS CORRECT? 


SET UP THE LOOP ON ERROR ADDRESS. 


E 11 
{nee 


CJKDCB=$A KEF11-A FP DIAG PART 1 MACY11 heal fe aT 15: 1 120 
CJKDCB.P11 12=MAR-80 15:26 CFD AND LDCOF T 
6464 
6465 036402 012700 037650 MOV #HXP2R 
C466 036406 012737 036416 001236 MOV HHXD, AAS TMP2 
6468 036414 170001 SETF | 
6470 036416 177420 HxX9: LDCDF  (RO)+,ACO “TEST INSTRUCTION 
6472 036420 020027 037660 CMP RO, #HXP2+10 WAS A 
6473 036424 001402 BEQ HXx10 “CONSTANT USED 
47% 036426 000137 037236 JMP QAHXERS “TO SNCREMENT RO? 
6476 036432 HX10: 
6477 036432 170205 STFPS RS 
6478 036434 012700 037630 MOV HHXDATO,RO 
6479 170011 SETD 
6480 036442 174010 STD ACO, (RO) :GET RESULT 
6481 012701 037730 MOV #HXPB RI 
6482 036450 012702 000004 MOV #4.R2 
6483 036454 022120 HX11: CMP (R1)+, (RO) + :I1S IT CORRECT? 
C484 036456 001415 BEQ HX14 
6486 036460 012701 037720 MOV #HXP7,R1 
6487 036464 012700 037630 MOV #HXDATO,RO 
6488 036470 012702 000004 MOV #4 .R2 
036474 022110 HX12: (R1)+, (RO) :DID FD FAIL TO GET 
90 036476 001402 BEQ HX13 = COMPLIMENTED? 
6491 0 000137 037372 IMP E 
6492 036504 077205 HX13: SOB R2,HX12 
6495 036506 000137 037422 JMP ER 
ene 036512 077220 HX14: SOB R2,HX11 
6497 036514 012704 000000 MOV #0,R4 :FPS CORRECT? 
6498 036520 020405 CMP R4.RS 
6499 036522 001402 BEQ HX15 
6500 036524 000137 037354 MP QFHXERS 
6902 : TEST GR7 IMMEDIATE MODE CONSTANT 
6504 036530 Hx15: 
6905 036530 104414 LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
6507 036532 012704 000200 #200,R4 
6508 036536 170104 LDFPS  R4 :SET FD 
6509 036540 012737 036556 001236 #HX16,aaSTMP2 
6510 036546 012737 037452 000004 #HXERS a#ERRVECT 
6511 036554 005001 CLR 
6512 036556 177427 043243 HX16:  LDCFD BS201 ACO 
6513 036562 005201 HX165: INC R1 
6514 036564 005201 INC R1 
6515 036566 005201 INC R1 
6516 036570 012737 062556 000004 MOV #CPSPUR , @#ERRVECT 
6517 036576 020127 000003 CMP R1 #3 :SEE IF “PC WAS 
6518 036602 001402 BEQ Hx17 * CORRECT 
6519 036604 000137 037506 JMP SWHXER10 


——— amen aur | pee es 


F 11 
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CJKDCB.P11 12=MAR=80 15:26 LDCFD AND LDCDF TEST SEQ 0135 
6520 
6521 036610 HX17: 
652 036610 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6524 036612 012704 000200 MOV #200,R4 
6525 036616 170104 LDFPS RG 
6526 036620 012737 036646 001236 MOV #HX18, a#STMP2 
6527 036626 012700 037710 MOV #HXP6 .RO 
6528 0 172410 LDD (RO) ,ACO 
6909 036634 012737 062556 000004 MOV acPsPuR aWERRVECT 
6530 036642 012700 037650 MOV #HXP2, 
6931 036646 177410 HX18: LDCFD (RO) ACO 
6533 036650 012700 037630 MOV #HXDATO RO 
6534 036654 174010 STD (RO) :GET RESULT. 
6535 036656 012701 037720 MOV mob 
6536 036662 012702 000004 MOV 
6537 036666 022021 Hx19: CMP trbos. (RI) :1S RESULT CORRECT? 
6538 036670 001402 BEQ HX20 
6539 036672 000137 037256 JMP @AHXERZ 
6940 036676 077205 HX20: S08 R2,HX19 
6542 -TEST LDCFD WITH NEGATIVE OPERAND 
6543 036700 HX21: 
036700 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6545 036702 012704 000200 MOV #200,R4 
036 170104 LDFPS R 
6547 036710 012737 036730 001236 MOV #HX22 , @ASTMPZ 
036716 012700 037710 MOV . 
6549 036722 172410 LOD (RO) ,ACO 
6550 036724 012700 037670 MOV , 
6951 036 177410 HX22:  LDCFD (RO), ACO 
6553 036732 012700 037630 MOV #HXDATO RO 
6994 036736 174010 STD , (ROS -GET RESULT 
6556 036740 012701 037700 MOV MHXPS RI 
6557 036744 012702 000004 MOV #4 .R2 
6558 036750 022120 HX23: CMP (Ri) +, (ROM 
6959 036752 001415 BEQ HX26 ‘ 
6561 036754 012701 037720 MOV #HXP7 RI 
6562 036760 012700 037630 MOV #HXDATO,RO 
6563 036764 012702 000004 MOV #4 ,R 
036770 022120 HX24: CMP (R1)+, (RO)+ :WAS SIGN INCORRECT 
6565 036772 001402 BEQ HX25 
6566 036774 000137 037540 JMP @AHXER11 
6567 037000 077205 HX25: SOB R2HX24 
6968 037002 000137 037560 JMP QHHXERT2 
6570 | 
6971 037006 077220 HX26: SOB R2,HX23 
6573 :TEST LDCFD O 
6574 


6575 037010 HX27: 


CJKDCB-A_KEF1I-A FP D 
12-MAR- 


CJKDCB.P11 


037122 
037126 


037130 
037136 
037142 
037144 


037146 
037152 


037154 


037170 
037174 


037176 


012700 
172410 
012737 
012700 
177410 
170205 


012700 
174010 


012701 


000200 


037640 


037042 
037640 
037630 


037640 
000004 


037610 
000204 


037336 


000200 
037710 
037142 
037640 
037630 


037640 
000004 


037610 


000204 


001236 


001236 


ine PART 1 MACY11 30A(1052) 
90 15:26 741 


HX28: 


HX29: 


Hx30: 


; TEST 
HX31: 


HX32: 


HX33: 


HX 34: 


12-MAR-80 1 
LDCFD AND LDCDF TEST 


LDCFD 


LPERR 
MOV 
LDFPS 


MOV 
LOD 
MOV 
MOV 
LDCFD 
STFPS 


MOV 
STD 


G 11 
15:31 PAGE 122 


7SET UP THE LOOP ON ERROR ADDRESS. 


#200 ,,R4 
R4 


#HXP1 RO 

(RO) ,ACO 

(RO) ,ACO 
#HX28 ,AASTMP2 
MHXP1 ,RO 

(RO) ,ACO 

R5 


#HXDATO,RO 
ACO, (RO) 


#HXP1,R1 
#4 R2 
(R1)+, (RO) + 
HX30 
QAHXER13 
2HX29 


;GET RESULT 


:1S IT 0? 


#204,R4 :FPS CORRECT 
RG RS 


HX31 
QAHXERS 


0 


ie —_———_— 


i 
| 


SEC 0136 


SET UP THE LOOP ON ERROR ADDRESS. 


#200 ,R4 
RS 


#HXP6 ,RO 

(RO) ,ACO 
#HX32 , BASTMP2 
#HXP 1, 

(RO) ,ACO 

R5 


#HXDATO,RO 
ACO, (RO) 


#HXP1.R1 

# 

(R1)+, (RO)+ 
34 


HX 
@AHXER13 
R2,HX35 


#204 ,R4 


;GET RESULT 


:IS IT ZERO? 


:FPS CORRECT? 
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037202 
037204 


87018 


037216 
037224 


037416 


037422 
037430 


037436 
037444 
037446 


037452 
0 


012737 
010037 
10400 


012737 


012737 
012737 
012737 
104002 
000137 
010537 


012737 
012737 


012737 
104002 
000137 
032716 
001005 


037336 
037740 


037654 
001240 


037740 


037660 
001240 


037740 
037650 
037720 
037630 
037740 
037650 
037720 
037630 
037740 


001240 
001242 


037740 


001240 
001242 


037740 


037650 
037730 


037630 
037740 
000001 
036562 
062556 


MACY11 


001242 


001242 


H 11 
eee? Be yy 15:31 "PAGE 123 
141 CFD AND LDCDF TEST 


CMP R4,R5S 
BEQ HX 35 
JMP QAHXERS 

HX35: JMP @4HXDONE 

:RO INCORRECT 

HXER1: MOV HHXP2+4 , @ASTMPS 
MOV RO. a#STMP3 

1$: ERROR 2 
JMP QFHXDONE 

HXERS: MOV MHXP2+10,a4STMPS 
MOV 0,a4STMP3 

1$: ERROR 


JMP @AHX 
;REPORT BAD DATA 


HXER2: MOV #HXP2 , AASTMPS 
MOV MHXP7 , AAS TMP7 
HXER22: MOV H#HXDATO,a#$TMP6 
1$: ERROR 2 
JMP @4HXDONE 
HXERS: MOV M#HXP2 ,@ASTMPS 


MO 
HXER33: MOV HHXDATO, DAS TMP6 
JMP @AHXDONE 


HXER4: MOV RS, a#SIMP5 
MOV R4, aS TMPS 
1$: ERROR 2 
JMP @AHXDONE 
HXER8: MOV RS ,a4STMPs 
MOV R4, AAS TMPS 
1$: ERROR 
JMP @AHXDONE 
HXER6: MOV #HXP2 , BASTMPS 
MOV 8 ,a#STMP7 
HXER66: MOV #HXDATO, a#STMP6 
1$: ERROR 2 
JMP @FHXDONE 
HXER7: MOV MHXP2 ,@ASTMPS 
MOV #HXPB, * aaSTMP7 
MOV MHXDATO ,a#STMP6 
1$: ERROR 2 
JMP @4HXDONE 
HXERO: BIT #1, (SP) >SEE IF IT 
BNE 1 :AN ODD ADDRESS 
ho #HX165, (SP) 


JMP @4CPSPUR 


a 
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CJKDCB.P11 12-MAR-80 15:26 LDOCFD AND LDCDF T SEQ 0158 
6688 
6689 037472 011637 001236 1$: MOV (SP) ,a#STMP2 
6690 037476 Oeeees CMP (SP)+,(SP)+ 
6691 037500 1 6 23: ERROR 2 
ret 037502 0001 037740 JMP @AHXDONE 
6694 a a08 162701 000003 HXER10: SUB #3,R1 
6695 035751 301 ASL R 
037514 01 ONS 036562 MOV #HX165,R2 
6697 0375 010237 001242 MOV R2,a4STMP4 
66 037524 segs SUB ‘ 
6699 0375 010 001240 MOY R2,a4STMP3 
6700 0375 104002 1$: ERROR 2 
om 037534 000137 037740 JMP @4HXDONE 
$708 037540 012737 037670 001244 HXERI1: MOV HHXPS ,aASTMPS 
6704 037546 012737 037700 001250 MOV HHXPS , AASTMP7 
6705 037554 000137 037272 JMP @AHXERZ2 
7560 012737 037670 001244 HXER12: MOV HHXPS , AASTMPS 
6707 012737 037700 001250 MOV MHXPS , AAS TMP7 
037574 012737 037630 001246 MOV #HXDATO, aS TMP6 
6709 037602 104002 1$: ERROR 
ont 037604 000137 037740 JMP @4HXDONE 
6712 037610 012737 037640 001244 HXER13: MOV #HXP1 , aASTMPS 
6713 037616 012737 037640 001250 MOV #HXP1 .aASTMP7 
ons 037624 000137 037272 JMP QHHXER22 
6716 037630 000000 HXDATO: 0 
6717 037632 000000 0 
6718 037634 000000 0 
ort 037636 000000 0 
6721 037640 000000 HXP1: 0O 
6722 037642 000000 0 
6723 037644 000000 0 
ore8 037646 000000 0 
6726 037650 000577 HXP2: 577 
6727 037652 177776 177776 
6728 037654 177777 177777 
6729 037656 177776 177776 
6730 037660 005201 HXP3: 5201 
6731 037662 000000 0 
6732 037664 000000 0 
6733 037666 000000 0 
6734 037670 100577 HXP4: 100577 
6735 037672 177776 177776 
6736 037674 177777 177777 
6737 037676 177776 177776 
037700 100577 HXP5: 100577 
6739 037702 177776 177776 
6 037704 000000 0 
6741 037706 000000 0 
6742 03771C 000252 HXP6: 252 
6743 037712 125252 125252 


eS - 
ae 
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CJKDCB.P11 12=MAR-80 15:26 LDCFD AND LDCDF TEST 
6744 037714 13282 125252 
one? 037716 1 3525 125252 
6747 0377 577 HXP7: 577 
6748 037722 776 177776 
6749 057724 0 
6750 O77 000000 0 
6751 O Ore HXP8 : $77 
6752 03 177777 177777 
6753 037734 000000 0 
of 037736 000000 0 
6756 037740 HXDONE : 
6757 037740 104413 RSE TUP + GO INITIALIZE THE FPS AND STACK; AND 
6758 IF THE USER HAS EXPRESSED 
6759 : THE DESIRE TO CHANGE THE SOF TWARE 
6760 RTUAL CONSOLE SWITCH REGISTER (HAS 
6761 ‘THE USER TYPED CONTROL G?). 
6762 
67635 
6764 
6765 
6766 REE RRR ERE RRR ERE ERA REE EREEEERERAEEEAEEEEEE 
poh : TEST 42 CMPD TEST 
6769 « STHIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A SUBROUTINE 
6770 s*IS USED TO SET UP OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 
yeh. = *RESULT S 
6773 eee RRR EEE E REAR EERE ERERREREREAAREEEREREE REED 
oe 037742 000004 T5142: SCOPE 
6776 TEST THE CMPD INSTRUCTION WITH (FSRC=AC=0) 
6777 037744 AAA1: 
6778 037744 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6779 037746 004737 040556 JSR PC .a#CMPSUB 
6780 037752 000000 000000 1$: ‘ 0,6.0,0 ACO 
6781 037760 000000 
6782 037762 000000 000000 2$: «WORD 0,0,0,0 FSRC 
6783 037770 000000 
6784 037772 000200 3$: 200 FPS BEFORE EXECUTION 
6785 037774 000204 204 “FPS ae EXECUTION 
6786 037776 000200 200 “ERROR FPS 
6787 0000 104002 4$: ERROR “FPS ERROR 
6788 
6789 
6790 > TEST CMPD WITH (AC=0) AND FSRC POSITIVE. 
6791 2 AAA2: 
6792 040002 104414 LPERR >SET UP THE LOOP ON ERROR ADDRESS. 
6793 040004 004737 040556 JSR PC ,a4CMPSUB 
6794 10 000000 000000 1$: .WORD 0,0,0,0 ;AC 
6795 040016 000000 
6796 0020 025252 2$: 25252 SF SRC 
6797 2 052525 52525 
6798 040024 125252 125252 
6799 040026 052525 $2525 


SEQ 0159 
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CJKDCB.P11 12=MAR-80 15:26 T42 MPD TEST SEQ 0140 
6800 040030 000 3$: 200 -FPS BEFORE EXECUTION 
6801 040032 000 200 “FPS ie EXECUTION 

040034 000210 210 “ERROR FPS 
e380 508 040036 104002 4$: ERROR 2 
6805 sTEST CMPD WITH (AC= 0) AND FSRC NEGATIVE 
6806 040040 AAAS: 
6807 040060 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6808 040042 004737 040556 JSR PC, a#CMPSUB 
6809 040046 000000 000000 000000 1S: WORD 6.0.0 AC 
6810 040054 000000 
6811 040056 12525¢ 2$: 125252 -FSRC 
6812 040060 125252 125252 
6813 052525 52525 
6814 040064 125252 125252 
6815 040066 000200 3$: 200 -FPS BEFORE EXECUTION 
6816 040070 000210 210 “FPS AFTER EXECUTION 
6817 040072 000200 200 “ERROR FPS 
6818 040074 104002 4$: ERROR 2 
6820 at CMPD WITH (FSRC=0) AND AC POSITIVE 
6821 040076 
6822 040076 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6823 040100 004737 040556 JSR PC. a#CMPSUB 
6824 040104 025252 1$: 25252 AC 
6825 040106 052525 $2525 
6826 040110 125252 125252 
6827 040112 052525 525 
6828 04011 0c2000 000000 28: “WORD 0,0.0,0 =F SRC 
6829 040122 000000 
6830 040124 000200 3$: 200 -FPS BEFORE EXECUTION 
6831 040126 000210 210 “FPS AFTER EXECUTION 
6832 040130 000200 200 “ERROR FPS 
6833 040132 104002 4$: ERROR 2 
se 
6836 -TEST CMPD WITH (FSRC=0) AND AC NEGATIVE 
6837 040134 AAAS: 
6838 040134 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6839 040136 004737 040556 JSR PC, a#CMPSUB 
6840 040142 125252 1$: 125252 =AC 
6841 040144 125252 125252 
6842 040 052525 
6843 040150 125252 125252 
6844 040152 000000 000000 000000 28: .WORD 0,0,0,0 =F SRC 
6845 040160 000000 
6846 040162 000200 3$: 200 FPS BEFORE EXECUTION 
6847 040164 000200 200 FPS AFTER EXECUTION 
6848 040166 000210 210 “ERROR FPS 
6849 040170 104002 4$: ERROR 2 
6851 -TEST CMPD WITH AC POSITIVE AND FSRC NEGATIVE 
6852 040172 AAA: 
6853 040172 104414 LPERR *SET UP THE LOOP ON ERROR ADDRESS. 
6854 040174 004737 040556 JSR PC, a#CMPSUB 
6855 040200 052525 1$: 52525 =AC 
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6881 


SSRSR EERE SPAR ERE RR ERR EREB SS SSO 


a3 


SS 
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-o 


37 940904 


125252 
052525 


040556 


040556 


040556 
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2$: 


3$: 


4$: 


ee —_— 


L 11 
12-MAR-80 15:31 PAGE 127 
TEST 


CMPD 

1g3 52 

$2525 

125252 

125252 :F SRC 

$2525 | 

125252 

$2525 

200 :FPS BEFORE EXECUTION 
210 “FPS AFTER EXECUTION 
200 “ERROR FPS 

ERROR 2 


gies! CMPD WITH AC NEGATIVE AND FSRC POSITIVE 


1$: 


2$: 


3$: 


4$: 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
SR PC ,,a#CMPSUB 


rf 

125252 zAC 

$2525 

125252 

$2525 

$2525 :F SRC 

125252 

$2525 

125252 

200 FPS BEFORE EXECUTION 
200 “EPS he EXECUTION 
210 “ERROR FPS 

ERROR 2 


:TEST CMPD WITH AC POSITIVE AND FSRC POSITIVE 
; AND ‘aaa LESS THAN EFSRC. 


18: 


2s: 


3$: 


4$: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a4CMPSUB 

2345 :AC 

67654 

32101 

23456 

23456 sF SRC 

76543 

21012 

34567 

200 FPS BEFORE EXECUTION 
200 “FPS eke EXECUTION 
210 =ERROR FPS 

ERROR 2 


ies! CMPD WITH AC POSITIVE, FSRC POSITIVE AND EAC GREATER THAN EFSRC 


1$: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,a4CMPSUB 

45676 ZAC 

54321 

12345 


SEQ 0141 


| 


— ae 
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CJKDCB.P11 12-MAR~80 15:26 TEST SEQ 0142 
6912 040340 067654 7654 
6913 040342 034567 2$: 4567 ;FSRC 
6914 040344 ety} 6543 
6915 0346 1 ¢ 101234 
6916 040350 056765 6765 3 
6917 040352 000200 3$: 200 :FPS BEFORE EXECUTION 
6918 040354 000210 210 FPS re EXECUTION 
6919 040356 000200 200 sERROR FPS 
ost 040360 104002 4$: ERROR 2 
6922 :TEST CMPD WITH AC POSITIVE, FSRC POSITIVE AND AC EQUAL TO FSRC 
6923 040 AAA10: 
6924 040 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
6925 040364 004737 040556 JSR PC ,a4CMPSUB 
6926 040370 012345 1$: 12345 ;AC 
6927 040372 1 67012 
6928 040374 34567 
6929 040376 012345 012345 
6930 040400 012345 2$: 12345 ;FSRC 
6931 040402 067012 67012 
6932 034567 34567 
6933 040406 012345 012345 
6934 040410 200 3$: 200 sFPS BEFORE EXECUTION 
6935 040412 000204 204 :FPS AFTER EXECUTION 
6936 040414 000200 200 SERROR FPS 
peel 040416 104002 4$: ERROR 2 
6939 :TEST CMPD WITH AC POSITIVE, FSRC POSITIVE, EAC EQUAL TO EFSRC, 
6940 [AND FSRC GREATER THAN AC. 
6941 040420 AAA11: 
6942 040420 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
6943 040422 004737 040556 JSR PC,.a4CMPSUB 
6944 040426 012345 1$: 12345 sAC 
6945 040430 067012 67012 
040432 567 
6947 040434 012345 ee 
040436 012345 2$: 12345 7F SRC 
6949 040440 070125 70123 
040442 70 
6951 040444 123456 123456 
6952 040446 000200 3$: 200 ;FPS BEFORE EXECUTION 
6953 040450 000200 200 FPS AF io EXECUTION 
6954 040452 000210 210 SERROR FPS 
6955 040454 104002 4$: ERROR 2 
6957 :TEST CMPD WITH AC POSITIVE, FSRC POSITIVE. EAC EQUAL TO EFSRC, 
6958 :AND AC GREATER THAN FSRC. 
6959 56 AAA12: 
6960 040456 104414 LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
6961 040460 004737 040556 JSR PC ,@4#CMPSUB 
6962 040464 054321 1$: 54321 sAC 
6963 040466 543 76543 
6964 040470 021076 21076 
6965 040472 054321 54321 
6966 040474 054321 2$: 54321 sFSRC 
6967 040476 065432 65432 
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CJKDCB.P11_  12=MAR=80 15:26 T42 MPD TEST 
6968 040500 107654 107654 
6969 040502 032107 32107 
6970 040504 009200 3$: 200 :FPS BEFORE EXECUTION 
6971 040506 000210 210 ;FPS AFTER EXECUTION 
6972 040510 000200 200 | OR FPS 
6973 040512 104002 4$: ERROR 2 
6975 -TEST CMPD WITH AC NEGATIVE, FSRC NEGATIVE, EAC EQUAL TO EFSRC, 
6976 “AND AC GREATER THAN FSRC 
6977 040514 AAAI3: 
6978 040514 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
6979 040516 004737 040556 JSR PC, a#CMPSUB 
6980 040522 112345 1$: 112345 <AC 
6981 040524 043210 43210 
6982 040526 076543 76543 
6983 040530 021076 21076 
6984 040532 112345 2$: 112345 sFSRC 
6985 040534 054321 54321 
6986 040536 007654 07654 
6987 040540 032107 32107 
6988 040542 000200 3$: 200 -FPS BEFORE EXECUTION 
6989 040544 000210 210 “FPS i aoe EXECUTION 
6990 040 000200 200 “ERROR FPS 
6991 040550 104002 4$: ERROR 2 
$095 
699% 040552 000137 040746 JMP @HAAADONE -FINISHED CMPD TEST. 
6996 
6997 - THIS SUBROUTINE, CMPSUB, IS CALLED TO SET UP, EXECUTE 
6998 “AND CHECK THE RESULTS OF A CMPD INSTRUCTION. 
6999 ;1T 1S CALLED THUS: 
7000 : 
7001 : JSR PC a#CMPSUB 
7002 : ACARG: .WORD X.X,X,X ;AC_OPERAND 
7003 : FSRCARG:.WORD X,X,X,X -FSRC OPERAND 
7004 : FPSB: .WORD xX “FPS BEFORE EXECUTION 
7005 : FPSA: .WORD xX “FPS AFTER EXECUTION 
7006 : FPSE: .WORD X *ERROR FPS 
7007 : ERR: ERROR xX “FPS ERROR 
7008 : CONT: “RETURN ADDRESS 
7010 “THE OPERANDS ARE SET UP (USING ACC FOR THE AC OPERAND). THEN 
7011 “FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, CMPD. IS EXECUTED. 
7012 “AFTER THE EXECUTION THE FPS IS CHECKED AGAINST FPSA. IF IT IS A MATCH 
7013 “THEN THERE WAS NO ERROR AND CONTROL IS RETURNED TO 
7014 “THE FPS IS INCORRECT IT IS COMPARED WITH FPSE IN AN ATTEMPT TO ANALYSE 
7015 “THE FAILURE. IF THE FPS IS THE SAME AS FPSE THEN CONT 
7016 SRETURNED TO THE ERROR CALL AT LOCATION ERR. IF THE FPS WAS 
7017 “NOT CORRECT BUT DIDN'T MATCH FPSE A GENERAL ERROR IS REPORTED 
018 “AND CONTROL IS PASSED TO CONT. 
7020 040556 012601 CMPSUB: MOV (SP)+,R1 :PICK UP POINTER TO THE 
7022 040560 016100 000020 MOV 20(R1),RO “GET THE FPS BEFORE EXECUTION. 
7023 040564 170100 LDFPS RO “LOAD IT INTO THE FPS. 








CJKDCB-A KEF11-A FP DIAG PART 1 MACYT7 30A(1052) 
CJKDCB.P11 12 15:26 142 


Hie 
S08 
onc 
170205 


016104 


101 i 
4 010137 
f 


000010 


000026 


040736 


PoRREGUIREREsUBE ENED REL SRE RS 


7065 071 


000030 


001240 


040610 001236 


001242 


040736 001242 


1$: 


2$: 


3$: 


4$: 


12-MAR-80 «15:31 
CMPD TEST 


000000 000000 CMPTMP: .WORD 
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PAGE 130 
SEQ 0146 | 
#1$, a#STMP2 7SAVE ADDRESS OF CMPD INSTRUCTION. | 
R “GET ADDRESS OF AC OPERAND. 
(RO) .ACO “LOAD ACO OPERAND 
R1.RO = COMPUTE FSRC OPERAND 
#10.RO :ADDRESS 
:FOR SCOPING. 
(RO) ,ACO “EXECUTE THE TEST INSTRUCTION, 
RS =SAVE FPS AFTER INSTRUCTION. 
22(R1),R4 :GET EXPECTED FPS. 
“JTF INCORRECT SET UP FOR 
R1,a4STMP3 *AN ERROR CALL. 
R1_aaSTMPS 
#10, a#STMPS 
BASTMPS 
R4. aASTMP6 
R4_RS5 -WAS FPS CORRECT? 
3$ :BRANCH IF YES. 
24(R1),R5 -WAS THE FPS THE SAME 
“AS THE EXPECTED INCORRECT FPS? 
2$ “BRANCH IF NO MATCH. 
#26,R1 :IF THE EXPECTED INCORRECT 
FPS matinee THE RESULTANT FPS 
(R1) =RETURN TO THE ERROR CALL 
“IN THE CALLING ROUTINE. 
2. :OTHERWISE REPORT INCORRECT FPS 
#CMPTMP RO :IF FPS WAS CORRECT MAKE SURE 
CO. (RO 05 ACO WAS NOT AFFECTED BY CMPD. 
#4 .R3 
(ROD +. (ROD + 
R3,4$ 
30(R1) RETURN 
=REPORT ACO MODIFIED BY CMPD 
R1,avSTMP3 
NCAP TOP OAS TMPS 
5$ :RETURN 
0,0,0,0 
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> 


1 
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040746 
040746 


104413 


174411 


170205 
170303 


012704 
020405 
001131 
012702 
020203 
001140 


012737 
012700 
172410 
012700 


000244 
001236 


001236 
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15:26 T42 CMPD TEST 


RSETUP 7GO INITIALIZE THE FPS AND STACK; AND 
7SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOF TWARE 
;VIRTUAL CONSOLE SWITCH REGISTER (HAS 
>THE USER TYPED CONTROL G?). 


oe ee EERE EKER EKEEREKEEEEEEEEEEREEREREREEEKE 


“*TEST 43 DIVD WITH (FSRC=0) AND (BUT FD) TEST 
* 


‘*THIS IS A TEST OF THE DIVD INSTRUCTION WITH A 
“#ZERO DIVISOR. THE CONDITION IS CHECKED WITH BOTH 
TRAP ENABLED AND TRAPS DISABLED. 

** 


« 
REAR EERE REE REEEERKEKEEREREKEEAEKEEEEREREREKRERERERREREER 


TST43: SCOPE 


FIRST TEST DIVD WITH (FSRC=AC=0) AND TRAPS DISABLED. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


BBBO: #40200,R4 =SET UP FPS 
“WITH INTERRUPTS 
:DISABLED. 
LDFPS R4 
MOV #BBBER1,a4FPVECT:SET UP FOR ANY FP INTERRUPTS. 
MOV #8BB1 , aASTMP2 
MOV #BBBP'1 RO -SET UP ACO = 0 
LDD (RO) ,ACO 
MOV #BBBP1,R1 :FSRC = 0 
BBB1:  DIVD (R1),ACO :TEST INSTRUCTION 
STFPS R5 :GET FPS 
STST R3 :GET FEC 
MOV #140204 ,R4 :EXPECTED FPS. 
CMP R4,R5 :I1S FPS CORRECT. 
BNE BBBER2 -]F INCORRECT BRANCH. 
MOV #4,R2 sEXPECTED FEC. 


:1S FEC CORRECT? 
:1F INCORRECT BRANCH. 


Ty DIVD WiTH (FSRC=0) AND TRAPS DISABLED. 


CMP R2,R3 
BNE BBBER3 


LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
t BEPS egal sLOAD FPS WITH TRAPS DISABLED. 


MOV #BBB3 ,a#STMP2 
MOV #BBBP 2 ,R 

LDD (RO) ,ACO 

MOV #BBBP’1 ,RO 


:SET UP ACO OPERAND (NON ZERO). 
:FSRC=0 


SEQ 0145 
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CJKDCB.P11 12=MAR~80 15:26 143 DIVD WITH (FSRC=0) AND (BUT FD) TEST SEQ 0146 
7136 041066 174410 BBB3: DIVD  (RO),ACO 
7138 041070 170205 STFPS BS sGET FPS. 
7139 041072 170303 STST R3 “GET FEC. 
7141 041074 012704 140200 MOV #140200,R4 -EXPECTED FPS. 
7142 041100 020405 CMP R4,R5 “IS FPS CORRECT? 
7143 041102 001102 BNE RASER2 “IF INCORRECT BRANCH. 
7145 041104 012702 000004 MOV #4 ,R2 sEXPECTED FEC. 
46 041110 020203 CMP R2.R3 WAS FEC CORRECT? 
2167 041112 001111 BNE BBAER3 aT INCORRECT BRANCH. 
7149 -TEST DIVD WITH FSRC=0) AND TRAPS ENABLED. 
7150 041114 BBBS : 
7151 041114 106414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7152 041116 012704 000200 MOV #200,R4 “SET UP FPS. TRAP ENABLED. 
155 041122 170104 LDFPS 4 
7155 041124 012737 041152 001236 MOV #BRBS , aSTMP2 
7156 041132 012700 041440 MOV #BBBP2 RO :SET UP ACO OPERAND (NON ZERO). 
tab YA 041136 172410 LDD (RO) ,ACO 
7159 041140 012737 041160 000244 MOV WRBR6.aNFPVECT :SET UP FOR THE EXPECTED INTERRUPT. 
7160 041146 012700 041430 MOV #ERBP 1 ,RO =F SRC=0 
7162 041152 174410 BBBS: DIVD  (RO),ACO : TEST INSTRUCTION (SHOULD RESULT IN TRAP). 
7165 041154 170000 CFCC 
65 041156 000502 BR BBBER4 :GO REPORT FAILURE, NO TRAP.  ... 
7167 041160 022716 041154 BBB6: CMP WEBBS+2.(SP) | ; TRAP TO HERE WHEN THE DIVISION BY 0 
7168 ZOCCURS. FIRST SEE IF THE ADDRESS OF 
7169 “THE T S 2+THE ADDRESS OF THE TEST 
7170 *DIVD INSTRUCTION. 
7171 041164 001402 BEQ 1$ 
ize 041166 000137 062524 MP asf PSPUR IF Nor THEN REPORT AN UNEXPECTED 
7174 041172 170205 1$: STFPS RS GET EPS. 
7175 041174 170303 STST 3 7GET FEC. 
2176 041176 022626 CMP (SP) +, (SP) + “RESET THE STACK. 
7178 041200 012704 100200 MOV #100200, R4 sEXPECTED FPS. 
7179 041204 020405 CMP “7S FPS CORRECT? 
7180 041206 001040 BNE Seare R2 “IF INCORRECT BRANCH. 
7182 041210 012702 000004 MOV #4 Re sEXPECTED FEC. 
7183 041214 020203 CMP R2-R “7S FEC CORRECT? 
7184 041216 001047 BNE BARBERS “IF INCORRECT BRANCH. 
7186 041220 000137 041450 JMP @4BRBDONE : OTHERWISE GO TO NEXT TEST. 
7188 
7189 TRAP HERE IF AN UNEXPECTED INTERRUPT OCCURS. 
7190 041224 062737 000002 001236 BBBER1: ADD #2, aASTMP2 -SEE IF THE INTERRUPT OCCURRED 
7191 “DURING THE EXECUTION OF THE DIVD 
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CJKDCB.P11 12=MAR~-80 15:26 T43 DIVD WITH (FSRC=0) AND (BUT FD) TEST SEQ 0147 
7192 s INSTRUCTION BEING TESTED. 
7193 041232 021637 001236 CMP (SP) ,a#STMP2 
7194 041236 00140¢ BE 
2195 041240 137 062524 MP aeFPSPUR :IF NOT REPORT UNEXPECTED FP TRAP. 
7197 041244 022626 1$: CMP (SP) +, (SP)+ sRESET THE STACK. 
7198 041246 170303 STST  R “GET FEC. 

7199 041250 170208 STFPS 5 “GET FPS. 
7200 041252 012737 000004 001240 MOV #4, @ASTMP3 “EXPECTED FEC. 
7201 041260 010337 001242 MOV R3_ aNSTMPG 
7202 041 010537 001244 MOV " aASTMPS 
7203 041270 010037 001250 MOV RO. a#$TMP7 
7204 041274 012737 140200 001246 MOV #140200, a#$TMP6 
7205 041302 104002 2$: ERROR 2 
7206 :WITH TRAPS DISABLED. 
7207 041304 000137 041450 JMP @#BBBDONE 
7209 :REPORT FPS INCORRECT: 
7210 041310 010537 001242 BBBER2: MOV RS, aSTMPS 
7211 041314 010437 001244 MOV R4_ awSTMPS 
7212 041320 010037 001246 MOV RO. awSTMP6 
7213 041324 010137 001250 MOV R1. awSTMP7 
7214 041330 104002 1$: ERROR 2 
7215 041332 000137 041450 JMP @ABRBDONE 
ae =REPORT FEC INCORRECT: 
7218 041336 010337 001242 BRBER3: MOV MP4 
7219 041342 010237 001240 MOV R2. aeSTMP3 
7220 041346 010037 001246 MOV TMP6 
7221 041352 010137 001250 MOV R1. awSTMP7 
7222 041356 104002 1$: ERROR 2 
7203 041360 000137 041450 JMP @HBBBDONE 
7225 =REPORT NO TRAP OCCURRED AFTER TRYING TO DIVIDE 
7226 “BY ZERO WITH ALL TRAPS ENABLED. 
7227 041364 170303 BBBERS: STST R3 :GET FEC. 
7228 041366 170205 STFPS RS “GET FPS. 
7229 041370 012737 001242 MOV 8G. QAST 
7230 041376 010337 001240 MOV R3.aeSTMPS 
7231 041402 010537 001244 MOV R5 aASTMPS 
7232 041406 012737 100 001246 MOV #100200 ,a#STMP6 
7233 041414 010037 001250 MOV TMP7 
723% 041420 010137 001252 MOV R1 .avSTMP10 
7235 041424 104002 1$ ERROR 2 
(236 041 000410 BR BRBDONE 
7238 041430 000000 000000 000000 BBBP1: .WORD 0.0.0.0 
7239 041436 000000 
7340 041440 012345 054321 023456 BBBP2: .WORD  12345,54321,23456.76543 
7241 041446 076543 
7262 
7243 
72boly 
72645 041450 BBBDONE : 
041450 104413 RSE TUP -GO INITIALIZE THE FPS AND STACK; AND 


7247 [SEE IF THE USER HAS EXPRESSED 
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CJKDCB.P11 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7255 
7256 
7257 
7258 
7259 
7260 
7261 
7262 041452 
7263 
7264 
7265 041454 
7266 041454 
7267 041456 
7268 041462 
7269 041466 
7270 041472 
7271 041476 
7272 041500 
7273 041502 
7274 041506 
7275 
7276 
7277 041510 
7278 041510 
7279 041512 
7280 041516 
7281 041522 
7282 041526 
7283 041532 
7284 041534 
7285 041536 
7286 041542 
7287 
7288 
7289 041544 
7290 041544 
7291 041546 
7292 041552 
7293 041556 
7294 041562 
7295 041566 
7296 041570 
7297 041572 
7298 
7299 041576 
7300 
7301 
7302 041600 
7303 041600 


000552 
000000 
067012 
000000 
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DIVD WITH (FSRC=0) AND (BUT FD) TEST SEO 0148 


>THE DESIRE TO CHANGE THE SOF TWAKE 
SVIRTUAL CONSOLE SWITCH ee (HAS 
:THE USER TYPED CONTROL G?) 


se te REE ERE EERE EAE AREER AERA EEEE EE 


**TEST 44 DIVE TEST 
;* 


**THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A SUBROUTINE IS 
-*USED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 


: *RESULTS. 
Fill ciaiiliahnemnanceiinennbiniennneatntanenascenees 
TST44: SCOPE 
inte DIVF WITH (AC=0). 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 


JSR PC ,DIVF SUB 


1$ WORD AC 

2$ "WORD 12345,67012 “FSRC 

3$: “WORD 0,0 RES 

4$: 0 “FPS BEFORE EXECUTION. 
4 “FPS AFTER EXECUTION 

5$ “WORD  12345,67012 “ERROR RESULT 

é$ ERROR 2 


;TEST DIVE WITH AC POSITIVE, FSRC POSITIVE AND IN ROUND MODE. 
"  LPERR :SET UP THE LOOP ON ERROR ADDRESS. 


JSR PC a#DIVF SUB 

1$: “WORD 65652,125252 —: AC 

©: .WORD 65600,0 ae 

3$: "WORD  40252.125252 S 

4$: 3000 FPS BEFORE EXECUTION. 
3000 : “FPS AFTER EXECUTION. 

S$: "WORD 40052.125252  :ERROR RESULT. 

6S: ERROR 2 

:TEST DIVE WITH AC POSITIVE, FSRC POSITIVE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC .DIVF SUB 

1$: -WORD  76400,0 AC 

2$: .WORD 76400, S :FSRC 

3$: “WORD 40200,0 *R 

4$: 1000 SFPS BEFORE EXECUTION. 
1000 FPS AFTER EXECUTION. 

5$: “WORD 140200.0 “ERROR RES. 

63: ERROR 2 :SIGN BAD 


sree. DIVF WITH BOTH OPERANDS POSITIVE. 
LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 
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7304 041602 
7305 041606 
7306 041612 
7307 041616 
7308 041622 

041624 
7310 041 
7311 0416 
alg 
731 
7314 041634 
7315. ioe 
7316 0416 
7317 041642 
7318 041646 
7319 041652 
7320 041656 
7321 041660 
7322 041662 
7325 041666 
7324 
7325 
7326 041670 
7327 041670 
7328 041672 
7329 041676 
7330 041702 
7331 041706 
7332 041712 
7333 041714 
7334 041716 
7335 041722 
7336 
7337 
7338 041724 
7339 041724 


179977 


99999 


002000 
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1§ 
$: 
$: 

4$: 


S$: 
6$: 


12-MAR 
DIVF TES 


. WORD 
ERROR 


G 12 
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aes eer, 
33309.0 
42777,177777 


eae 


:TEST THE DIVF INSTRUCTION: 
cccs: 


LPERR 
J 


. WORD 
ERROR 


sAC 
sFSRC 
“FPS BEFORE EXECUTION. 


“FPS AFTER EXECUTION. 
sERROR RES. 


:SET UP THE LOOP ON ERROR ADDRESS. 
; AC 
sFSRC 


;RES 

FPS BEFORE EXECUTION. 
sFPS AFTER EXECUTION. 
;ERROR RES. 


eS a DIVIDE ALGORITHM. TEST ROUND CONSTANT. 


LPERR 
JSR 

. WORD 
. WORD 
— 


0 
. WORD 
ERROR 


> TEST DIVF. 
CCC?: 


LPERR 


PC ,a#D1VF SUB 
64600, 1 


66600 , 0 
36200, 1 


eet 


:SET UP THE LOOP ON ERROR ADDRESS. - 
iA 

sFSRC 

“R 


“FPS BEFORE EXECUTION. 
ZFS AFTER EXECUTION. 


7SET UP THE LOOP ON ERROR ADDRESS. 


SEG 0149 
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CJKDCB.P11 12=MAR=80 15:26 DIVF TES SEQ vm 
73%40 0417 737 JSR IVF SUB 

7341 Oc 782 nee 7? onesse I$: “WORD 34597 ,17776 ZAC | 
rk: 041742 051377 raat 33: “GORD £7399 47777%6 “RES 

7344 04 1746 000017 is: i7 “FPS BEFORE EXECUTION. 

7345 041 900000 0 “FPS AFTER EXECUTION. 

7346 041752 003400 003400 S$: "WORD 3400, 3400 “ERROR RES 

7347 041756 104002 és: ERROR 2 

7348 

7349 

7350 -DIVF TEST 

7351 041760 CCC8: 

735 041760 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7353 041762 004737 042234 JSR PC, a#DIVF SUB 

7354 041766 067652 125252 1$ "WORD 67652,125252 —; AC 

7355 041772 056500 2$: "WORD 56500,0 ;FSRC 

7356 041776 051343 107070 3$: "WORD 51343,107070  ;RES 

7357 042002 000000 L$: 0 “FPS BEFORE EXECUTION. 

7358 04 000000 0 “FPS AFTER EXECUTION. 

7359 042006 051543 107070 5$: -WORD 51543,107070 =; ERROR RES. 

7360 042012 104002 é$: ERROR 2 “DIDN'T INCREMENT THE EXPONENT 
7361 “AFTER DIVID NORMALIZATION. 

F308 :DIVF WITH AC NEGATIVE, FSRC NEGATIVE. 

7364 042014 CCC9: 

7365 042014 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7366 042016 004737 042234 JSR PC, a#D1VF SUB 

7%67 042022 140400 000000 1$: “WORD  140400,0 AC 

7368 042026 140500 000000 2$: "WORD  140500.0 “FSRC 

7369 042032 040052 125253 3$: "WORD 040052,125253 :RES 

7370 042036 000000 4$: 0 “FPS BEFORE EXECUTION. 

7371 042040 000000 0 “FPS AFTER EXECUTION. 

7372 042042 140052 125253 5$: “WORD  140052,125253  :ERROR RES. 

7375 042046 104002 6$: ERROR 2 “BAD SIGN. 

7375 -DIVF WITH AC NEGATIVE AND FSRC POSITIVE. 

7376 042050 CCC10: 

7377 042050 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7378 042052 004737 042234 JSR PC aeDIVF SUB 

7379 042056 160077 000000 1$: -WORD 160077,0 SAC 

7380 042062 040277 000000 2$: "WORD  40277,0 =F SRC 

7381 042066 160000 000000 3$: “WORD  160000,0 “R 

7382 042072 000907 4$: ? “FPS BEFORE EXECUTION. 

7383 042074 000010 10 “FPS AFTER EXECUTION. 

7384 042076 000000 S$: -WORD 60000,0 “ERROR RES. 

7385 042102 104002 6S: ERROR 2 “BAD SIGN 

ree <DIVF WITH AC POSITIVE AND FSRC NEGATIVE. 

7388 042104 CCC11: 

7389 042104 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7390 042106 004737 042234 JSR PC, a#DIVF SUB 

7391 042112 0404 1$ WORD  40400,0 =AC 

7392 042116 140500 000000 2$ WORD  140500,0 =F SRC 

739% 042122 140052 125253 3$: "WORD 140052,125253 ;:RES 

7394 042126 0000 4$: 17 “FPS BEFORE EXECUTION. 

7395 042130 000010 10 -FPS AFTER EXECUTION. 
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CJKDCB.P11 12-MAR- DIVF SEG 0151 
7396 042132 040052 125253 5$: -WORD 40052,125253  ;ERROR RES. 
le LA 042136 104002 6$: ERROR 2 *BAD SIGN. 
7399 
7400 : TEST DIVF BOTH OPERANDS POSITIVE AND TRUNCATE MODE. 
7401 042140 CCCl2: 
Loe 042140 106414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
740 042142 006737 042234 JSR PC ,a4DIVF SUB 
7404 042146 060100 000001 1$: “WORD 60100,1 AC 
7405 042152 040300 000000 2$: "WORD 40300,0 F SRC 
7406 042156 060000 000000 3$: “WORD 60000,0 *RES 
7407 oe 162 000052 4$: 52 :FPS BEFORE EXECUTION. 
7408 164 000040 40 “FPS AFTER EXECUTION. 
7409 042166 060000 000001 5$: .WORD 60000,1 *ERROR RES 
7410 042172 104002 6$: ERROR 2 “ TRUNCATION ERROR 
741 :DIVF WITH POSITIVE OPERANDS AND ROUND MODE. 
741 042174 CCC13: 
7414 062174 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7415 042176 004767 000032 JSR PC,DIVF SUB 
7416 042202 100 000001 1$: “WORD 60100,1 AC 
7417 042206 040300 000000 2$: “WORD 40300,0 “FSRC 
7418 O42212 000001 3$: “WORD 60000,1 *R 
7419 042216 000005 4$: 5 ;FPS BEFORE EXECUTION. 
7420 0422 0 FPS AFTER EXECUTION. 
7421 042222 000000 S$: .WORD 60000,0 ERROR RES. 
race 042226 104002 6$: ERROR 2 “ROUND ERROR. 
atSe 042230 000137 042460 JMP a4CCCDONE :GO TO NEXT TEST. 
7426 -THIS SUBROUTINE, DIVFSUB, IS CALLED TO SET UP, EXECUTE 
rae? AND CHECK THE RESULT OF A DIVF INSTRUCTION. IT IS CALLED THUS: 
7429 : JSR PC ,a#D1VF SUB 
7430 : ARG: .WORD X,X ZAC OPE RAND 
7431 : FSRCARG:.WORD X,X -FSRC OPERAND 
7432 RES: WORD  X.X : EXPECTED RESULT 
7433 FPSB: .WORD xX FPS BEFORE EXECUTION 
434 FPSA: . WORD x *FPS AFTER EXECUTION 
7435 : ERRES: .WORD XX “ERROR RESULT 
7436 : ERR: ERROR xX “RESULT ERROR 
rest ; CONT: “RETURN ADDRESS 
7439 “THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
7440 “FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, DIVF IS EXECUTED. 
Pll “AFTER THE EXECUTION THE RESULT HECKED AGAINST THE 
Pho? : CTED CORRECT T, RES. IF IT IS CORRECT THEN THE FPS 
Pk? “1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WA 
Phlale > INCORRECT THEN IT IS REPORTED. | INCORRECT IT 
7445 “1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. 
Poko ;THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS P 
7447 CALL AT ERR. {iF THE INC RESULT DID NOT MATCH ERRES 
7448 “THEN THE FAILURE IS REPORTED IN DIVFSUB AND CONTROL IS PASSED TO 
es :CONT.. IF NO ERRORS ARE DETECTED THEN DIVFSUB RETURNS CONTROL 
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DCB.P11 DIVF TEST SEQ 0152 
7452 042234 012601 DIVF SUB: MOV (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 
7453 042236 01 000200 MOV #200,RO :SET FD MODE. 

7454 042242 170100 LDFPS RO 
7455 042244 010100 V :LOAD THE AC OPERAND. 
7456 0422466 172410 LOD tO) ACO 
7457 042250 016100 000014 MOV 4(R1) RO :LOAD THE FPS 
7458 042254 170100 LDFPS RO 
7459 042256 012737 042272 001236 MOV #1$, aASTMP2 
7460 04 010100 MOV R1,RO 
7461 04 062700 000004 ADD #4,RO : ESTABLISH A POINTER TO FSRC. 
7463 042272 174410 1$: DIVF (RO) ,ACO : TEST INSTRUCTION. 
7465 042274 170204 STFPS RG -GET THE FPS. 
7466 042276 012700 000200 MOV #200,RO “SET FD MODE 
7667 042 170100 LDFPS RO 
7469 042304 012700 042450 MOV #DIVFT,RO :GET THE RESULT OF THE DIVF. 
7420 042310 174010 STD ACO, (RO) 
7472 042312 010102 MOV »R2 :SAVE THE DATA IN CASE OF ERROR. 
7473 042314 010237 001240 MOV Ro avSTMP3 
7474 042320 062702 000004 ADD #6. 
7475 O4e324 010237 001242 MOV Re. “AS TMP 
7476 330 000004 ADD 
7477 042334 010237 001244 MOV Ro. SeSTMPS 
7478 042340 012737 042450 001246 MOV #DIVFT, ar$ TMP 
7479 042346 010437 001250 MOV R4.aaSTMP 
7480 042352 016137 000016 001252 MOV 16(R1) ,a#STMP10 
7482 042360 021061 000010 CMP (RO), 10(R1) -IS THE RESULT CORRECT? 
7483 042364 001011 BNE $ “IF INCORRECT BRANCH. 
2%66 026061 000002 000012 CMP 2(RO),12(R1) 

7485 042374 001005 BNE 10$ 
7487 042376 026104 000016 CMP 16(R1) .R4 :1S FPS CORRECT? 
7488 042402 001020 BNE 15$ “JF INCORRECT BRANCH. 
7489 042404 000161 000026 JMP 26(R1) “IF NO ERRORS OCCURRED RETURN. 
7491 042410 021061 000020 10$: CMP (RO), 20(R1) :DOES THE INCORRECT RESULT 
7492 042614 001010 BNE 11$ “MATCH THE ANTICIPATED INCORRECT RESULT. 
7493 042416 026061 000002 000022 CMP 2(RO) ,22(R1) 
749% 042424 001004 BNE 11$ :BRANCH IF NO. 
7496 042426 010102 MOV R1,R2 :I1T MATCHED SO RETURN TO THE ERROR 
7497 “REPORT AT THE CALLING ROUTINE. 
7498 042430 062702 000024 ADD #26,R2 
7499 042434 000112 JMP (R2) 
7501 042436 11$: :REPORT RESULT INCORRECT. 
7502 042436 104002 12$: ERROR 2 
7305 042440 000161 000026 13$:  JMP 26(R1) 
7505 042444 15$ -REPORT FPS INCORRECT. 

042444 104002 16$ ERROR 2 


7506 : 
7507 042446 000774 BR 13$ 
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7508 
09 


042450 
042456 


042460 
042460 
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000000 000000 000000 
000000 


104413 


177777 


177777 


177777 


DIVFT: 


CCCDONE : 


Ue ae 15:31 
DIVF TEST 
-WORD 0,0,0.,0 
RSE TUP 


K 12 
PAGE 139 


;GO INITIALIZE THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 
:THE DESIRE HE 


TO CHANGE THE SOF TWARE 
:VIRTUAL CONSOLE SWITCH a (HAS 
;THE USER TYPED CONTROL G?) 


REE REE ERE RRC REEEREREEHEEEHE 


: TEST 45 


< eTHIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
: SUSED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE RESULTS. 


 aibniecineidiaeatebhdashveemadasidbqussbansesabtenntneetonsness 


T8145: 


SCOPE 


DIVD TEST 


ioe TEST WITH POSITIVE OPERANDS AND IN ROUND MODE. 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 


ERROR 


:DIVD WITH AC 
DDD2: 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 


LPERR 
SR 


ERROR 


PC, a#DIVDSUB 
34577,0,0,0 


40277,0,0,0 
34200.0.0,0 


-1,-1,°1,-1 
2 


NEGATIVE AND FSRC 


PC a#DIVDSUB 
134277,0,0,0 


40277,0,0,0 
134200,0,0,0 


=1,°1 ,-1,-1 
2 


SET UP THE LOOP ON ERROR ADDRESS. 


FPS BEFORE EXECUTION. 
ZFPS AFTER EXECUTION. 


POSITIVE IN TRUNCATE MODE. 
7SET UP THE LOOP ON ERROR ADDRESS. 
sAC 
zFSRC 
:RES 
sFPS BEFORE EXECUTION. 


TFPS AFTER EXECUTION. 
sERROR RESULT. 


ALN TEST WITH OPERANDS BOTH NEGATIVE AND IN TRUNCATE MODE. 


SEQ 0155 
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15:26 
000332 
000000 


000000 
000000 


043154 
000000 
000000 
125252 
125252 


177777 


MACY11 30A(1052) 
145 


000000 


177777 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 


sDIVD WITH AC 
DDD4: 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 


:DIVD TEST. 
DDDS: 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 


sDIVD TEST WITH 
DDD6: 
1$: 


2$: 
3$: 


12=MAR 
DIVD TES 
LPERR 
JSR PC B1VDSUB 
“WORD  134300,0,0,1 
.WORD  140300,0,0,0 
“WORD  34200,0.0,0 
250 
240 
“WORD  34200,0,0,1 
ERROR 2 

POSITIVE AND FSRC 
LPERR 
JSR PC, a#D1VDSUB 
“WORD  34300,0,0,1 
.WORD  140300,0,0.0 
.WORD  134200,0,0,1 
207 
210 
‘ 134200,0,0,0 
ERROR 2 
LPERR 
JSR PC, a#DIVDSUB 
-WORD 100400,0,0.,0 
-WORD 500,0,0,0 
.WORD  140052.125252 
“WORD 12525¢,125252 
7647 
7650 
; =1,-1,-1,°1 
ERROR 2 


LPERR 
JSR 
. WORD 


AC POSITIVE AND 


PC ,a#DIVDSUB 
400,0,0,0 
100500,0,0,0 


140052,125252 
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;SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 

:RES 

FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

ERROR RES. 

; TRUNCATION ERROR. 

NEGATIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

:FSRC 

;RES 


:FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


;ROUND ERROR. 


3SET UP THE LOOP ON ERROR ADDRESS. 
zAC 

sFSRC 

sRES 


;FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 


FSRC NEGATIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

iFSRC 

7RES 


SEQ 0154 
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043056 
3060 


7672 
7673 043154 012601 
7674 
7675 043162 


125253 


177777 


177777 


043414 


043156 012700 000200 
170100 
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000000 
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DIVD TEST 
(WORD 125252,125253 
4$: 7707 :FPS BEFORE EXECUTION. 
7710 “FPS AFTER “EXECUTION. 
S$: “WORD -1,-1,-1,-1 “ERROR RES 
6$: ERROR 2 
:DIVD TEST. 
DDD?7: 
LPERR *SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#DIVDSUB 
1$: "WORD 170360,170360 ;AC 
.WORD 170360, 190360 
2$: "WORD  170360.170360  ;FSRC 
"WORD  170360,170360 
3s: "WORD 40200,0,0,0 RES 
4$: 7717 :FPS BEFORE EXECUTION. 
7700 “FPS AFTER EXECUTION. 
S$: “WORD -1,-1,-1,-1 “ERROR RES. 
6$: ERROR 2 
JMP @#DDDDONE -GO TO NEXT TEST. 


:THIS SUBROUTINE, DIVDSUB, IS CALLED TO SET UP, EXECUTE 
; AND CHECK THE RESULT OF A DIVD INSTRUCTION. If IS CALLED THUS: 


: JSR PC ,a@#D1 VDSUB 
; ACARG: .WORD X,X,X,X a; OPERAND 
: FSRCARG:.WORD X,X,X,X ;FSRC OPERAND 
: RES: -WORD X,X.X.X ; EXPECTED RESULT 
; FPSB: .WORD xX ;FPS BEFORE EXECUTION 
; FPSA: .WORD KX [FPS AFTER EXECUTION 
é ERRES: .WORD X,X,X.X ERROR RESULT 
° ERR: ERROR X RESULT ERROR 
; CONT: RETURN ADDRESS 
:THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
FPSB IS L D INTO THE FPS. THE INSTRUCTION, DIVD IS EXECUTED. 
zAFTER THE EXECUTION THE RESULT IS CHECKED AGAINST T 
XPECTED CT RE RES. IF IT .: CORRECT THEN THE FPS 


7E CORRE SULT 
“1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
“INCORRECT THEN IT IS REPORTED. If THE RESULT WAS INCORRECT IT 


“THE INCORRECT 


; THE E CAL IF THE 
Z THEN THE FAILURE 1S REPORTED IN DIVDSUB AND 
:CONT IF NO ERRORS ARE DETECTED THEN DIVDSUB RETURNS 


(SP)+,R1 


DIVDSUB: MOV ’ : 
aaa ;SET FD MODE 


MOV 
LDFPS 


—_— ae 


SEQ 0155 


-GET A POINTER TO THE ARGUMENTS. 


CJKDCB=A KEF11-A FP DIAG 


CJKDCB.P11 
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WW 
Ooo 
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016137 
010102 
062 


010102 
062702 
012703 
012705 
022223 
001005 
077503 
010102 
062702 
000112 


104002 
000161 


000030 


043212 
000010 


000200 


000044 


000046 


001236 


001246 
001252 


PART 1 MACY11 30A(1052) 
15:26 T45 


1$: 


2$: 


10$: 


11$: 


— —— -— 
-\WNO 
AAW 


N 12 
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DIVD TEST 


R1_20 :SET UP THE ACO OPERAND. 
(RO) ,ACO 
30(R1) RO :LOAD THE FPS. 
RO 
#1$, aaSTMP2 
R1.RO : ESTABLISH A POINTER TO FSRC. 
#10,RO 
(RO) ACO sEXECUTE THE TEST INSTRUCTION. 
R4 :GET THE FPS. 
#200,RO “SET FD MODE. 
RO 
#DIVDT.RO :GET THE RESULT. 
ACO, (RO) 
R1,R2 :SAVE DATA IN CASE OF ERROR. 
R2. a#STMP3 
#10,R2 
R2, a4STMP4 
#10,R2 
R2,a4STMPS 
ADIVDT .a#STMP6 
R4, a#STMP7 
32(R1) ,a#$TMP10 
R1.R2 = CHECK THE RESULT. 
#20,R2 | 
A#DIVDT,R3 
#4 R5 
(R2)+, (R3)+ 
10$ :BRANCH IF RESULT INCORRECT. 
R5,2$ 
32(R1) -R4 -1S FPS CORRECT? 
“BRANCH IF INCORRECT. 
46(R1) *RETURN. 
R1,R2 :WAS INCORRECT RESULT ANTICIPATED? 
#34 ,R2 
#DIVDT .R3 
ah 
(R2)+, (R3)+ 
12$ *BRANCH IF NO. 
R1,R2 :IF THE INCORRECT RESULT WAS 
#44 ,R2 “ANTICIPATED RETURN TO THE 
“ERROR REPORT IN THE CALLING 
(R2) ROUT INE. 
; :REPORT RESULT INCORRECT. 
46(R1) 


A 


SEQ 0156 


LUE 


B 13 
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$388 158: . , :REPORT FPS INCORRECT. 
5 Birch "BR 14S 


ok IE: sisi 000000 000000 DIVDT: .WwORD 0.0.0.0 


7740 043414 ODDDONE : 
7741 16 106613 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
77 “SEE IF THE USER HAS EXPRESSED 
77% “THE DESIRE TO CHANGE THE SOF TWARE 
7 Vholy “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
77,5 “THE USER TYPED CONTROL G?). 
og 
ri 
77 8 {REREREEERE EERE RERRRRRERERRARERERRERERERRERA RARER RRR REAR 
7 : TEST 46 MULF TEST 
77 < eTHIS 1S A TEST OF THE MULF INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
775 “#10 SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND CHECK THE 
Aa : —_— 
77 $ SAAR RARE EER EERERERERRERERERARR RE REERRE RE REE RARE 
ie: 043416 000004 S146: SCOPE 
vr MULE WITH (FSRC=AC=0) 
7761 104414 " _ LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
776 7 044200 JSR PC. a#*MULF SUB 
776 1$: 7 0,6 sAC 
7764 000000 23: -WORD 0,0 :FSRC 
7765 000000 3$: “WORD 0.0 RES 
0766 1 4$: 7517 “FPS BEFORE EXECUTION. 
776 44 007504 7504 “FPS AFTER EXECUTION. 
0768 1 177777 5$: “WORD -1,-1 
7769 52 104002 6$: ERROR 2 
7771 *MULF WITH (FSRC=0). ° 
777 54 EEE2: 
5558 54 104414 LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
7774 737 044200 JSR PC ,@4MULF SUB 
003 1625 034435 I$: - WORD P1625, 34435 ZAC 
£555 iad 3$: “WORD 0.0. RES 
708 76 1 4$: 13 “FPS BEFORE EXECUTION. 

300 d “FPS AFTER EXECUTION. 
7780 502. 177777 «177777 5$: .WORD -1,-1 “ERROR RES. 
rr 043506 104002 6S: ERROR 2 

sMULF WITH (AC=0) 
‘ 04 510 FEES: 
510 104414 LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
043512 004737 044200 JSR PC a#MULF SUB > 


CJKDCB-A_KEF11~A FP D 
CJKDCB.P11 


338 


RRRRRRRRRR RRRRFRRRFR KRRRREK 


fs 


Sesh CER ERE eh Eee LES Eee r erent 


RRPLLLLLLR 
SRESEE Ree 


PPI 
FEOVRVS 


eevarre F 


WG 
N 
oOo 


CeeRaoeees 


33 
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_~— 
NN 


153443 
000600 


044200 


000000 
177777 
177777 


~ 177777 


000372 
177777 
000000 
177777 


177777 


044200 


1$: 
2s: 
3$: 
4$: 


5$: 
6$: 


sMULF WITH AC 
FEES: 


PE 
SR 
1$: .- WORD 
2s: . WORD 
3$: . WORD 
4$: 'y 
5$: . WORD 
6$: ERROR 
MULF WITH AC 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: 40 
40 
5$: . WORD 
6$: ERROR 


LPERR 
JSR 

. WORD 
- WORD 
. WORD 
12 

0 

- WORD 
ERROR 


0,0 
071625, 153443 
0.0 


-1,-1 
2 
POSITIVE AND FSRC 


PC ,@4MULF SUB 


40200.0 


40177, 2 
40177,-1 


140177,-1 
2 
POSITIVE AND FSRC 
PC ,MULF SUB 
40177.-1 
20200. 0 
40177.-1 


37777 ,=1 
2 
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sAC 
sFSRC 


sRES 
sFPS BEFORE EXECUTION. 


ZFPS AFTER EXECUTION. 
> ERROR 


POSITIVE IN ROUND MODE. 


;SET UP THE LOOP ON ERROR ADDRESS. 


:FSRC 


S$ 
FPS BEFORE EXECUTION. 


“FPS AFTER EXECUTION. 
RROR RES. 


POSITIVE IN TRUNCATE MODE. 
SET UP THE LOOP ON ERROR ADDRESS. 


sAC 
sFSRC 


;RES 
sFPS BEFORE EXECUTION. 
:FPS . EXECUTION. 


ST 2 


E 
52 TO 044 INTO 444 (BUT Y62) 
. NORMALIZATION FAILURE. 


OPERANDS POSITIVE NORMALIZE TEST. 
SET UP THE LOOP ON ERROR ADDRESS. 


PC, @4MULF SUB 
40100,0 
40100,0 
40020,0 


42040,0 
2 


=F SRC 
=R 


:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 


:ERROR RES. 
ST 252 0 444 INTO 042 (BUT Y62) 
7MUL. NORMAL 


IZATION FAILURE. 


OPERANDS POSITIVE IN ROUND MODE. 
:SET 


23652, 125252 


3177 ,=~1 


-1,-1 


es 
FPS BEFORE EXECUTION. 


SFPS 


UP THE LOOP ON ERROR ADDRESS. 


AFTER EXECUTION. 


— ee ee 


cements 


SEQ 0158 | 


eS 


eee eee 


D 13 
PAGE 145 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 
CJKDCB.P11 12=MAR-80 15:26 746 MULF TEST 
78h 043722 104002 6S: ERROR 
7846 -MULF WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
7847 043724 EEES: 
7848 043726 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7849 043726 004737 044200 JSR PC @4MULF SUB : 
7850 043732 040342 000000 1$: WORD 40540 =AC 
7851 043736 176542 000000 2$: “WORD 1765 $50 0 °F SRC 
7852 043742 176707 102000 3$: "WORD 176707.102000 :R 
7853 043746 7 4$: ? “FPS BEFORE EXECUTION. 
7854 043750 10 10 “FPS AFTER EXECUTION. 
7855 043752 076507 102000 7$: -WORD 76507.102000 ERROR RES. 
7856 0437 04002 6S: ERROR 2 BAD A 
7858 -MULF WITH AC NEGATIVE AND FSRC POSITIVE IN ROUND MODE. 
7859 043760 EEES: 
7860 043760 104414 LPERR 3 :SET UP THE LOOP ON ERROR ADDRESS. 
7861 043762 004737 044200 JSR PC a#MULF SUB 
7862 043766 140 1$: “WORD  140200.0 AC 
7863 043 007417 007417 2$: "WORD 7417,7417 *FSRC 
7864 043776 107417 007417 3$: "WORD 107417,7417 RES 
7865 044002 4$: 0 “FPS BEFORE EXECUTION. 
7866 044 10 10 “FPS AFTER EXECUTION. 
7867 044 007417 007417 5$: “WORD 7417,7417 “ERROR RES. 
7868 044012 104002 é$: ERROR 2 “BAD SIGN 
7870 :MULF WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 
7871 044014 EEE10: 
7872 044014 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7873 044016 004737 044200 JSR PC, a#MULF SUB 
7874 144600 000000 1$: “WORD 144600,0 AC 
7875 154000 000000 2$: "WORD  154000,0 ;FSRC 
7876 044032 060400 000000 3$: “ WORD 00,6 :RES 
77 044036 000017 L$: 17 FPS BEFORE EXECUTION. 
7878 044040 000000 0 “FPS AFTER EXECUTION. 
7879 044042 160400 000000 S$: “WORD  160400.0 SERROR RES. 
7880 044046 104002 é$: ERROR 2 “BAD SIGN. 
7882 -MULF BOTH OPERANDS NEGATIVE IN ROUND MODE. 
7883 044050 EEE11: 
7884 044050 104414 LPE >SET UP THE LOOP ON ERROR ADDRESS. 
7885 044052 004737 044200 JSR PC. a#MULF SUB 
7886 044056 140300 000000 1$: “WORD  140300.0 AC 
7887 044062 1 000001 2$: “ WORD 40000.4 :F SRC 
7888 044066 060100 000002 3$: "WORD  60100,2 S 
7889 044072 000010 4$: 10 FPS BEFORE EXECUTION. 
7890 044074 000000 0 “FPS AFTER EXECUTION. 
7891 044076 060100 000001 5$: “WORD  60100,1 “ERROR RES. 
7892 044102 104002 é$: ERROR 2 “ROUND FAILURE. 
789%, -MULF WITH AC POSITIVE AND FSRC NEGATIVE IN TRUNCATE MODE. 
7895 044104 EEE12: 
7896 044104 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
7897 044106 004737 044200 JSR C .@MULF SUB : 
7898 044112 060000 000001 1$: “WORD  60000,1 AC 
7899 044116 140300 2$: "WORD  140300,0 =F SRC 


SEQ 0159 


| 
| 
| 


ee TT 
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7901 
7902 
7903 


160100 

007547 

007550 
60 


160100 
104002 
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000001 


000001 


000200 


000014 


044236 001236 


000004 


3$: -WORD  160100,1 iRES 
L$: 7547 FPS BEFORE EXECUTION. 
7550 “FPS AFTER EXECUTION. 
S$: -WORD  160100,1 “ERROR RES. 
é$: ERROR 2 * TRUNCATION ERROR. 
MULE wITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#MULF SUB 
1$: . WORD 40877. 0 AC 
2$: “WORD 9000.1 iF SRC 
3$: “WORD $007 o1 
4 14 FPS BEFORE EXECUTION. 
0 “EPS AFTER EXECUTION. 
5$: “WORD 60077,2 “ERROR RES. 
é$: ERROR 2 “ROUND FAILURE. CONSTANT BAD. 


JMP EEEDONE :GO TO THE NEXT TEST. 


:THIS SUBROUTINE, MULFSUB, IS CALLED TO SET UP, EXECUTE 
AND CHECK THE RESULT OF A MULF INSTRUCTION. If IS CALLED THUS: 


: JSR PC aeMULF SUB 

; ACARG: .WORD XX sAC OPERAND 

: FSRCARG:.WORD X.X -FSRC OPERAND 

: RES: .WORD X.X Z EXPECTED RESULT 

FPSB: .WORD X “FPS BEFORE EXECUTION 

: FPSA: .WORD X “FPS AFTER EXECUTION 

: ERRES: .WORD X,X “ERROR RESULT 

: ERR: ERROR X “RESULT ERROR 

: CONT: “RETURN ADDRESS 
OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 

F IS L INTO THE FPS. THE INSTRUCTION, MULF IS EXECUTED. 

“AFTER THE EXECUTION THE RESUL AGAINST THE 

“EXPECTED CORRECT RESULT 

“1S CHECKED WITH THE EXPECTED CORRE 

: CT THEN IT IS . IF 

“1S COMPARED WITH ERRES IN 

:T I c SULT RATC D ERRES THE 





; THE ERROR CALL A IF T 
; THEN be FAILURE IS REPORTED IN MULF AND 
NO ERRORS ARE DETECTED THEN MULFSUB RETURNS C 


MULF SUB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 

V #200,R0 :SET FD MODE. 

LDFPS RO 

MOV R1 :LOAD THE AC OPERAND. 

LDD (30) ACO 
V (R1) RO :LOAD THE FPS 

LDFPS RO 
V 1S. aaSTMP2 
V 1.R0 


RI, 
ADD #4 ,RO ESTABLISH A POINTER TO FSRC. 


SEQ 0160 


CJKDCB-A peal FP DIAG 15036 1 MACY11 ss? Sie 


CJKDCB.P11 12=MAR-80 1 
7956 
7957 044236 171010 
7958 
7959 044240 170204 
7960 044242 012700 000200 
7961 044246 170100 
F9e8 044250 012700 044414 
7964 254 174010 
7965 
7966 044256 010106 
7967 044 010237 001240 
7968 044 062 
7969 044270 aR ts 001242 
7970 044274 062702 
7971 044 010237 001244 
7972 044 012737 044414 
79 044312 010437 001250 
ee 044316 016137 000016 
7976 044324 1 000010 
7977 044330 001011 
7978 044332 1 000002 
7979 044340 001005 
7981 044342 026104 000016 
7982 346 001020 
7983 044350 000161 000026 
7985 044354 021061 000020 
7986 044360 001010 
7987 044362 026061 000002 
7988 044370 001004 
7989 
7990 044372 010102 
7992 044374 062702 000024 
7993 044400 000112 
7994 
7995 044402 
7996 044402 104002 
7997 044404 000161 000026 
7998 
7999 044410 
8000 044410 104002 
8001 044412 000774 
8003 044414 000000 000000 
8004 044422 000000 
8005 
8006 044424 
8007 044424 104413 
8008 
8009 
8010 
8011 


001246 
001252 


000012 


000022 


000000 


1§: 


10$: 
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F TEST 
MULF (RO) ACO : TEST INSTRUCTION. 
STFPS RG :GET THE FPS. 
V #200,RO “SET FD MODE 
LDFPS RO 
MOV #MULF TRO :GET THE RESULT OF THE MULF. 
STD ACO, (RO) 
MOV R1,R2 :SAVE THE DATA IN CASE OF ERROR. 
MOV R2. aevSTMP3 
ADD “R2 
MOV R2. aaSTMP4 
ADD Re 
MOV R2.a#STMPS 
MOV FT avSTMP6 
MOV R4,aA"STMP7 
MOV 16(R1) ,a#$TMP10 
CMP (RO), 10(R1) :]S THE RESULT CORRECT? 
BNE 10$ "IF INCORRECT BRANCH. 
CMP 2(RO),12(R1) 
BNE 10$ 
CMP 16(R1) RS :1S FPS CORRECT? 
BNE 15$ iT INCORRECT BRANCH. 
JMP 26(R1) “IF NO ERRORS OCCURRED RETURN. 
CMP (RO) ,20(R1) =DOES THE INCORRECT RESULT 
BNE 11$ “MATCH THE ANTICIPATED INCORRECT RESULT. 
CMP 2(RO) ,22(R1) 
BNE 11$ :BRANCH IF NO. 
MOV R1,R2 :1T MATCHED SO RETURN TO THE ERROR 
“REPORT AT THE CALL.NG ROUTINE. 
ADD #24 ,R2 
JMP (R25 
:REPORT RESULT INCORRECT. 
ERROR 2 
JMP 26(R1) 
:REPORT FPS INCORRECT. 
ERROR 2 
BR 13$ 
.WORD 0,0,0,0 
“RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 


SEE IF THE USER HAS ta 

; THE DESIRE TO CHANGE THE SOF TWARE 
VIRTUAL CONSOLE SWITCH pean (HAS 

THE USER TYPED CONTROL G?) 


SEQ 0161 


eee 


CJKDCB=-A wath 
P11 


CJKDCB. 


8049 


POR oRORENEU RUZ 


g 


BSE 
Ree 


044714 
000000 


177777 
177777 


177777 


000202 
000000 


177777 
177777 


000000 


044714 
177777 


000000 
000000 


000000 
177777 
177777 


000000 


000000 
177777 
177777 


000000 


177777 
000000 
000000 


cm 
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RARER EERE ARTETA AERA RARE AAA AAA ARERR EERE RARER EH 


: TEST 47 


: SUSED 


MULD TEST 


S STHIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A 
TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 


A SUBROUTINE IS 


; CHECK THE RESULTS. 


 itieiaatinnelh aediidtihebe wnideiaeiensebennEnenneteeanestenas 


TST4?: 


SCOPE 


it, TEST WITH AC POSITIVE AND FSRC POSITIVE. 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 


sMULD TEST WITH 
FFF2: 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 
es 5 TEST WITH 


LPERR 
JSR 
. WORD 


ERROR 


ERROR 


:SET UP THE LOOP ON ERROR ADDRESS. 
40200,0,0,0 ZAC 


PC ,a@#MULDSUB 


23777 ,.-1,71,71 > sFSRC 


23777 ,-1,71,71 > RES 


;FPS BEFORE EXECUTION. 
:FPS AFTER ECECUTION. 
23777 ,-1,0,0 TERROR RES. 


2 ;BAD CONSTANT USED IN ALGORITHM 
USED 24 INSTEAD OF 56. 


BOTH OPERANDS POSITIVE TRUNCATION TEST. 


:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,MULDSUB 
65400,0,0.1 sAC 
37577,-1.-1,-2  3FSRC 
64777,-1,-1.-1 ;:RES 

:FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

65000.0,0,0 “ERROR RES. 
2 : TRUNCATION ERROR. 
BOTH OPERANDS NEGATIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 
PC ,@#MULDSUB 
137577,-1,-1,-2 :AC 
165400,0,0,1 :FSRC 
65000,0,0,0 RES 


ee ee ee —-- i re 
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CJKDCB.P11 12=MAR~ 
8068 044616 007717 4$: 7717 :FPS BEFORE EXECUTION. | 
8069 007700 | 7700 “FPS AFTER EXECUTION. | 
8070 064777 177777 +177777'~«S$: "WORD 64777.-1.-1.-1 ERROR RES. | 
8071 044630 17777 | 
8072 044632 104002 6S: ERROR 2 :ROUND ERROR. | 
8074 -MULD TEST WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 
8075 044634 FFFG: 
8076 044634 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8077 044636 004737 044714 JSR PC. a#MULDSUB 
8078 044642 017500 000000 000000 1S: “woRD  17500,0,0,0 AC 
8079 044650 000000 
044652 123652 125252 2$ .WORD  123652,125252  ;FSR( 
8081 044656 125252 125252 "WORD 125252,125252 
8082 103177 177777 177777 38: "WORD 103177,-1,-1,-1 ;RES 
8083 044670 177777 
8084 044672 000200 4$: 200 -FPS BEFORE EXECUTION. 
8085 044674 000210 210 “FPS AFTER EXECUTION. 
8086 044676 103200 000000 000000 S$: “WORD 103200,0,0,0  ;ERROR RES. 
8087 044704 000000 
8088 044706 104002 6S: ERROR 2 *ROUND ERROR (BAD CONSTANT). 
8090 044710 000167 000240 JMP F FF DONE 
8092 - THIS SUBROUTINE, MULDSUB, IS CALLED TO SET UP, EXECUTE 
res “AND CHECK THE RESULT OF A MULD INSTRUCTION. IT IS CALLED THUS: 
8095 : JSR PC .a#MULDSLB 
8096 : ACARG: .WORD X,X,X,X :AC OPERAND 
8097 : FSRCARG:.WORD X,X,X,X *FSRC OPERAND 
8098 : RES: “WORD X.X,X.X “EXPECTED RESULT 
8099 : FPSB: .WORD xX “FPS BEFORE EXECUTION 
8100 : FPSA: . WORD X “FPS AFTER EXECUTION 
8101 : ERRES: .WORD X,X,X,X “ERROR RESULT 
8102 : ERR: ERROR xX “RESULT ERROR 
8105 : CONT: *RETURN ADDRESS 
8105 “THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
8106 “FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULD IS EXECUTED. 
8107 “AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
8108 “EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
8109 “1S CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
8110 “INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
8111 “1S COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. | 
8112 “THE INCORRECT RESULT MATCHED ERRES THEN CONTROL IS 
8113 “THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT MATCH ERRES 
8114 “THEN THE FAILURE IS REPORTED IN MULD ONTROL IS PASSED TO 
3119 : . IF NOE ARE DETECTED THEN MULDSUB RETURNS CON 
8117 E 
8118 044714 012601 MULDSUB : MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
8119 044716 012700 000200 MOV #200,RO :SET FD MODE. 
8120 044722 170100 LDFPS RO 
8122 044724 010100 MOV R1.RO :SET UP THE ACO OPERAND. 
8123 044726 172410 LDD (RO), ACO 


CJKDCB-A KEF11-A FP DIAG PAR 
12-MAR~80 15:26 


CJKDCB.PT11 
8124 044730 
8125 044734 
8126 
arte 
B38 Sire 
8130 
ats 044752 
8135 044754 
8134 044756 
8135 044762 
8136 
8137 044764 
81 O44 
8139 
8140 044772 
8141 044774 
8142 045000 
8143 045004 
8144 045010 
8145 045014 
8146 045020 
8147 ota 
8148 0450 
8149 
8150 045040 
8151 045042 
8152 045046 
2153 045052 
8154 045056 
8155 045060 
8156 045062 
8157 
8158 045064 
8159 045070 
8160 045072 
8161 
8162 045076 
8163 045100 
8164 045104 
8165 045110 
8166 045114 
8167 045116 
8168 045120 
8169 045122 
8170 045124 
8171 
es 045130 
81 
8174 045132 
8175 045132 
8176 045134 
8177 
8178 045140 
8179 045140 


016100 
170100 
arte TA 
010100 
062700 
171010 
170204 
619700 
170100 


012700 
174010 


01010 
01023 
062 


01 
016137 
010102 
0627 


000044 


001236 


001246 
001252 


000046 *% 


23: 


10$: 


11$: 


30(R1),RO 
RO 


#1$, aeSTMP2 
R1.R0 
#10,R0 

(RO) ,ACO 


RS 
#200,RO 
RO 


#MULDT RO 
ACO, (RO) 


#4 R 
(R24, (R3)+ 
10$ 

R5.2$ 
32(R1) RG 
46(R1) 


a 

(R2)+, (R3)+ 
RS.11$ 
Ri,R2 

#44 ,R2 

(R2) 


2 
46(R1) 
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147 MULD TEST 


;LOAD THE FPS. 


sESTABLISH A POINTER TO FSRC. 
sEXECUTE THE TEST INSTRUCTION. 
-GET THE FPS. 

:SET FD MODE. 

:GET THE RESULT. 


;SAVE DATA IN CASE OF ERROR. 


:CHECK THE RESULT. 


;BRANCH IF RESULT INCORRECT. 


:I1S FPS CORRECT? 
:BRANCH IF INCORRECT. 
:RETURN. 


WAS INCORRECT RESULT ANTICIPATED? 


BRANCH IF NO. 


;I1F THE INCORRECT RESULT WAS 
;ANTICIPATED RETURN TO THE 
ae IN THE CALLING 


REPORT RESULT INCORRECT. 


REPORT FPS INCORRECT. 


CJKDCB-A aide FP 1”. PART 1 MACY! ayant Ose) 
12 80 15:26 


—— ee ee 


J 13 
12-MAR-80 15:31 PAGE 151 
MULD TEST 


CJKDCB.P11 ~MAR~ 
8180 045142 000774 BR 14$ 
8182 045144 000000 000000 000000 MULDT: .WORD 0,0.0,0 
8185 045152 000000 
8185 045154 FFF DONE: 
8186 045154 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
8187 “SEE IF THE USER HAS EXPRESSED 
8188 *THE DESIRE TO C THE SOF TWARE 
8189 “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
8190 “THE USER TYPED CONTROL G?) 
8191 
8192 
8193 
8194 © ee REE ERRE REA RERARRERERERERERERREREEREREEEEEREEEE 
8195 ; TEST 50 UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 
8197 : THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDI T 1ONS USING 
8198 sTHE MULF INSTRUCTION WITH TRAPS DISABLED. NOTE THAT A SUBROUTINE 
8199 “415 USED TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND 
8200 ; * CHECK THE RESULTS. 
8202 . «aii diiisiblie esta dimer bereteeneeaeeeesnbeneiarenNtetes 
8203 045156 000004 TST50: SCOPE 
8205 :UNDERFLOW, WITH EXPONENT OF RESULT = -129 
8206 045160 1111: 
8207 045160 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8208 045162 004737 045404 JSR PC, @#OVUNFNT 
8209 045166 020200 000000 1$: “WORD 20200,0 = AC 
8210 045172 020000 000000 2$: .WORD  20000,0 =F SRC 
8211 045176 000000 000000 3$: .WORD 0,0 “RES 
8212 065202 177777 177777 4$: “WORD -1,~1 ERROR RES. 
8213 045206 000000 S$: 0 FPS BEFORE EXECUTION. 
8214 045210 000004 4 “FPS AFTER EXECUTION. 
8215 045212 000012 6$: 12 sFEC 
8216 045214 177777 -1 :FLAG 
8217 045216 104002 7$: ERROR 2 ‘ST 331 TO 155 INTO 115 (BUT FIU) 
8218 0452 01 BR 8$ 
8219 045222 104002 ERROR 2 
8220 04522 8$: 
8222 :UNDERFLOW, WITH EXPONENT OF RESULT = -193 
8223 045224 1112: 
8224 045224 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8225 045226 004737 045404 JSR PC .a#OVUNFNT 
8226 045232 010200 000000 1$: “WORD 10200,0 AC 
8227 045236 010000 000000 2$: .WORD  10000,0 =F SRC 
8228 045242 000000 000000 3$: .WORD 0,0 RES 
8229 045246 010000 000000 4$: “wORD 10000,0 ; ERROR RES. 
8230 045252 005013 5$: $013 FPS BEFORE EXECUTION. 
8231 5254 005004 5004 “FPS AFTER EXECUTION. 
8232 045256 000012 6$: 12 7 EC 
8233 045260 177777 -1 LAG 
8234 045262 104002 7$: ERROR 2 SETTING FIUV OR FIV CAUSES TRAP 


sWITH FIU CLEAR 


we ae 


SEQ 0165 | 


names Eo ee = 
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JKDCB.P11 
36 045264 000401 BR RG 
8237 045266 104002 ERROR 2 
oSe5 045270 8$: 
8240 ‘i EXPONENT OF RESULT = 128 
8241 045270 1113: . 
8242 045270 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
8243 045272 004737 045404 JS PC A¥OVUNFNT 
8244 045276 060 000000 1$ : 69200 AC 
8245 045 060000 000000 2$ “WORD “F SRC 
8246 045 000000 000000 3$ “ WORD *R 
8247 045312 060000 000000 L$ “ WORD O90 ERR OR RES. 
8248 045316 000000 5$ 0 FPS BEFORE EXECUTION. 
8249 045320 000006 6 “FPS AFTER EXECUTION. 
8250 045322 000010 6$ 10 SPEC 
8251 045324 0 ZF 
8252 045326 104002 7$: ERROR 2 ‘ST Ag 33 TO 136 INTO 116 (BUT FIV). 
8253 045330 000401 BR 8$ 
8254 045332 104002 ERROR 2 
8255 045334 8$: 
ag § -OVERFLOW, EXPONENT OF RESULT = 130 
8258 045334 1114: 
8259 045334 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
045336 004737 045404 JSR PC @YOVUNFNT 
8261 045342 200 000000 1$ WORD 60200.0 AC 
045 060200 000000 : 00,0 *FSRC 
8263 045352 000000 3$ “WORD 0,0 RES 
8264 045356 177777 177777 4$: "WORD -1,-1 Z ERROR RES. 
8265 045362 006011 5$: 6011 FPS BEFORE EXECUTION. 
8266 045364 006006 6006 “FPS AFTER EXECUTION. 
8267 045366 000010 63: 10 “FEC 
8268 045370 0 “FLAG 
8269 045372 104002 7$ ERROR 2 *SETTING FIUV OR FIU WITH 
8270 “FIV CLEAR CAUSES TRAP. 
8271 045374 000401 BR 8$ 
8272 045376 104002 ERROR 2 
8275 045400 000167 000410 8$: JMP LI IDONE :GO TO NEXT TEST. 
aera 
8277 : THIS SUBROUTINE, OVUNFNT, IS USED TO SET UP THE OPERANDS, EXECUTE 
8278 “THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
8279 “OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
Py :TO IT IS MADE THUS: 
8282 : ACARG: .WORD X,X ZAC OPE 
8283 : FSRCARG:.WORD X,X FSRC OPERAND 
8284 : RES: “WORD XX S EXPECTED RESULT 
8285 : ERRES: .WORD X,X RESULT 
8286 : FPSB: .WORD X “FPS BEFORE EXECUTION 
8287 : FPSA: WORD xX “FPS AFTER EXECUTION 
: FEC: "WORD X : EXPECTED FEC 
8289 : FLAG: .WORD xX *0/=1, 0VER/UNDER FLOW FLAG 
; ERR1: ERROR X : "ERROR. 
8291 ; CONT 
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8292 
8295 


010100 
172410 


010102 
010237 


001252 
001246 


001236 
000244 
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UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 


: ERR2: ERROR X :DATA, RESULT ERKOR 
: CONT: “RETURN ADDRESS 


3 THE OPERANDS ARE SET UP (USING AC 


F ORRECT. THE INCORR 
:ANTIICIPATED FAILING DATA PAT TERN, 
“THE RESULT WAS ANTICIP ATED cOnmEETL Y TO BE ERRES | 

CONTROL TO T ALL AT ERR2. 


IF A TRAP ore (IT SHOULD NOT) THEN OVUNFNT a 
: SHOULD THE FEC MATCH THE HE ANTICIPATED FEC OVUNFNT W 
A AND TRANS T TO THE E CALL AT ERR1. IF THE 


SSTORE ALL DATA F RROR 

:FEC IS NOT THE SAME AS THE gh he FEC OVUNFNT WILL gay 
:THE ERROR AND RETURN TO CONT. NOTE THAT OVUNFNT USES THE FLAG 
:TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
SUNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 


OVUNFNT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
#200,RO -SET FD MODE. 
LDFPS RO 
MOV R1.RO :LOAD ACO, OPERAND. 
LDD (RO) ,ACO 
MOV R1.R2 :SAVE THE DATA PATTERNS IN CASE OF 
MOV R2. aeSTMPS ERROR. 
MOV R2. aeSTMPS 
ADD 
MOV Re ars TMPS 
MOV 22(R1) ars 1H 10 
MOV #OVENTT .av$ 
MOV 20(R1),RO sLOAD THE FPS. 
LDFPS 
MOV #1$. aeSTMP2 
MOV #25$, aaF PVECT :SET UP THE FP TRAP VECTOR IN CASE 
MOV R1,RO “COMPUTE THE ADDRESS OF FSRC. 
ADD #4-RO 
1$: MULF (RO). ACO : TEST INSTRUCTION. 
2$: STFPS RG :GET FPS. 
TST RS “GET FEC. 
V #200,RO “SET FD MODE. 
LDFPS R 
V #OVENTT,RO :GET THE RESULT. 


STD ACO, (RO) 
R4, aASTMP7 





CJKDCB.P11 


045540 


oe eee. 
SERENE 


VAY) 
RS 


RR 
ges 


RRR RR 
BES Fy 
art NO 


nnn aE 
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010537 


010102 
062702 
010237 
000112 


005761 


001002 


104002 
000742 


104002 
000740 


001254 
046004 
000010 
000002 


000022 


000036 


000026 


000014 
000002 


000034 
001236 


000026 


3$: 


:REPORT 
10$: 


16$: 


17$: 


18$: 


19$: 
20$: 
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UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST 


12=MAR-80 15:31 
MOV RS, aa#STMP11 
MOV #OVFNTT,RO 
MOV R1.R2 
ADD #10,R2 
MOV 
CMP (RO)+, (R2)+ 
BNE 15$ 
S08 R3,3$ 
CMP 22(R1),R4 
BNE 10$ 
JMP 36(R1) 
INCORRECT FPS. 

TST 26(R1) 

12$ 
ERROR 2 
BR 4$ 
ERROR 2 
BR 4$ 
INCORRECT. 
MOV #OVENTT,RO 
MOV R1,R2 
ADD #14,R2 
MOV #2,R 
CMP (RO) +, (R2)+ 
BNE 
S08 R3.16$ 
MOV R1,R2 
ADD #34 ,R2 
MOV R2. aASTMP2 
JMP (R23) 
TST 26(R1) 
BNE 19$ 
ERROR 2 

4$ 
ERROR 2 

4$ 


SEQ “a 


; CHECK THE RESULT. 


;BRANCH IF INCORRECT. 

sWAS FPS CORRECT? 

;BRANCH IF FPS IS INCORRECT. 
;RETURN, TEST COMPLETED. 

;WAS THE RESULT oe OR UNDER FLOW? 
sBRANCH IF UNDERFLOW 

;REPORT FPS BAD AFTER OVERFLOW. 


;REPORT FPS BAD AFTER UNDERFLOW. 


SEE IF FAILURE IS ANTICIPATED 
ILURE 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
TO THE ERROR REPORT IN THE CALLING 


RESULT WAS NOT ANTICIPATED 
350 ERROR MUST BE REPORTED HE 
:FIRST SEE IF ARGUMENTS SHOULD 
HAVE RESULTED rs eg OR UNDER 
“FLOW BY LOOKING AT THE FLAG. 
BRANCH IF ONDERF LOM EXPECTED. 


REPORT RESULT INCORRECT. EXPECTING 
VERF LOW. 


REPORT RESULT INCORRECT, EXPECTING 
UNDERF LOW. 


ee ee —_—— 
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CJKDCB.P11  12=MAR=80 15:26 T50 UNDER\OVER FLOW, USING MULF WITH TRAPS DISABLED, TEST SEQ 0169 
8404 . LF AN FP TRAP OCCURS COME HERE. 
8405 045676 011602 55$: MOV (SP) ,R2 :GET ADDRESS OF TRAP. 
8406 045700 022702 045514 CMP #2$,R2 “WAS THE TRAP DURING THE MULF INSTRUCTION? 
8407 045704 0014 BEQ 26$ “BRANCH IF YES. 
8408 045706 062524 JMP AHF PSPUR : OTHERWISE GO REPORT A SPURIOUS 
8410 045712 02 26$: CMP (SP) +, (SP)+ “RESET THE STACK. 
8411 045714 010237 001236 MOV R2,a#$STMP2 “SAVE DATA FOR ERROR REPORT. 
Bie 045 1 STFPS R4 “GET FPS. 
8413 045722 170305 STST RS “GET FEC. 
8414 045724 012700 000200 MOV #200,RO “SET FD MODE. 
8415 045 170100 LDFPS 
8416 045 012700 046004 MOV #OVENTT,RO :GET THE RESULT. 
8417 045736 174010 STD ACO, (ROS 
8418 045740 010537 001254 MOV R5, a4$TMP11 
8419 045744 020561 000024 CMP R5.24(R1) sWAS THE FEC ANTICIPATED? 
8420 045750 001004 BNE 27$ “BRANCH IF NOT ANTICIPATED. 
R422 045752 010102 MOV R1.R2 :ERROR WAS ANTICIPATED SO 
B423 045754 062702 000030 ADD #30,R2 “RETURN TO THE ERROR REPORT OF THE 
8424 “CALLING ROUTINE. 
Bags 045760 000112 JMP (R2) 
8427 045762 005761 000026 278: TST 26(R1) : THE ERROR WAS NOT ANTICIPATED SO 
8428 :1T MUST BE REPORTED HERE. FIRST SEE IF EXPECTED 
8429 “OVERFLOW OR UNDER 
84 30 045766 001003 BNE 29$ “BRANCH IF EXPECTING. UNDERF LOW 
8432 sREPORT TRAPPED ON OVERFLOW WITH FIV=0 
8433 045770 104002 28$: ERROR 2 
84 34 045772 000161 000036 JMP 36(R1) 
8436 045776 29$: :REPORT TRAPPED ON UNDER FLOW WITH FIU=0 
8437 045776 104002 30$: ERROR 2 
8438 046000 000161 000036 MP 36(R1) 


CJKDCB~A ad 
CJKOCB.F11 
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UNDER\CVER FLOW. USING MULF WITH TRAPS DISABLED, TEST SEQ 0170 


res ‘ee 000000 000000 OVFNTT: .WORD 0.0.0.0 


e614 104413 





046344 
000000 


000000 
000000 000000 
000000 000000 


000000 


123456 


I 1 IDONE : 
RSETUP 7G0 INITIALIZE THE FPS AND STACK; AND 
ZSEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 
“Vv VIRTUAL CONSOLE SWITCH — (HAS 
THE USER TYPED CONTROL G?) 


{RREERREREEERREEEEEERERERERERERAEERARA RARER AAA AAA A RAAT RAR RRR RE 


; TEST 51 UNDER\OVER FLOW. USING MULD WITH TRAP DISABLED, TEST 


: THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS THAT CAN 

* *ARRISE USING THE MULD INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
**USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 

i sCHECK THE RESULTS. 


manila; He ee AEA RAEEEEREEREKEEEEEAREREREREAEREEERAERERE 


1ST51: SCOPE 

;UNDERFLOW, EXPONENT OF RESULT=-129 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,@4OVUNDNT 

1$: “WORD  20200,0 ZAL 
“WORD 127272,0 

2$: "WORD 20000,0,0,0 =F SRC 

3$: -WORD 0,0,0,0 RES 

4$: .WORD 0,0 :ERROR RES. 
"WORD 127272,0 

5$: 200 FPS BEFORE EXECUTION. 
504 “FPS AFTER EXECUTION. 

6S: Te cFEC 

7$: ERROR 2. — 831 TO 155 INTO 115 (BUT FIU) 
ERROR 2 :ST 115 (BUT FD) 

8$: ; 

;UNDERF LOW, EXPONENT OF RESULT = -193 

" _ LPERR -SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC @HOVUNDNT 

1$: “WORD 10200,0 =AC 
“ WORD 12 56,0 

23: “WORD 10000,0,0,0 =F SRC 

3$: .WORD 0,0,0.0 RES 


4$: WORD 0,0,123456.0 ;ERROR RES 
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3 
= 


SESSEEES 


SEIRSSEN 


BEES 
SNS 


<b oad 
AEALAM 


-B0 15:26 


046344 


046344 


046754 


065432 


000000 
000000 
125252 


S$ 5213 
5204 
6$: Me 
7$ ERROR 2 
BR 8$ 
FRROR 2 
8$: 
:OVERFLOW, EXPONENT OF RESULT = 
JJJ3: 
LPERR 
JSR PC ,@40VUNDNT 
1$: “WORD 60200,0 
-WORD 65432,0 
2$: . WORD ,0,0, 
3$: -WORD 0,0,0,0 
4$: . WORD 0,0,65432,0 
5$: 200 
206 
6$: Mg 
7$: ERROR 2 
BR 8$ 
ERROR 2 
8$: 


:OVERFLOW, EXPONENT OF RESULT = 
JJJ4: 


1$: 
2$: 


8$: 


THIS SUBROUTINE, OVUNDNT, 
;THE MULD INSTRUCTION AND 


12-MAR-80 15:31 


LPERR 
SR 

. WORD 
WOR 
. WORD 


PC ,@#OVUNDNT 
60200,0 
125252,0 
60200,6,0,0 
0,0,0,0 


0,0,125252.,0 


2 
2» 
a4 JJ JDONE 


PAGE 157 
UNDER\OVER FLOW, USING MULD WITH TRAP DISABLED, TEST 


FPS BEFORE EXECUTION. 
ree AFTER EXECUTION. 


FLAG 
ZSETTING FIUV OR FIV BAD. 


zST 115 (BUT FD) 


128 

;SET UP THE LOOP ON ERROR ADDRESS. 
zAC 

FSRC 

sRES 

;ERROR RES. 


sFPS BEFORE EXECUTION. 
uae AFTER EXECUTION. 


sFEC 

3s FLAG 

:ST 333 TO 136 INTO 116 (BUT FIV) 
:ST 116 (BUT FD) 


130 

;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

3FSRC 

sRES 

ERROR RES. 


7FPS BEFORE EXECUTION. 
ee AFTER EXECUTION. 


7FLAG 
sSETTING FIUV OR FIV BAD. 


7ST 116 (BUT FD) 
:GO TO NEXT TEST. 


1S USED TO SET UP THE OPERANDS, EXECU/E 
CHECK THE RESULTS OF AN INSTRUCTION WITH 


“OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 


SEQ O171 
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010237 


012737 


000200 


001252 
001246 


001236 
000244 
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UNDER\OVER FLOW, USING MULD WITH TRAP DISABLED, TEST 


:TO IT IS MADE THUS: 


SEQ 0172 


; CARG: .WORD X,X,X,X 

: FSRCARG:.WORD X,X,X,X SRC OPERAND 

: RES: ~WORD X,X,X,X ‘EXPECTED RESULT 

: ERRES: .WORD X,X,X,X ze RESULT 
FPSB: -WORD X :FPS BEFORE EXECUTION 
FPSA: ~WORD X “FPS AFTER EXECUTION 

5 FEC: ~WORD X s EXPEC TED FEC 
FLAG: -WORD X -0/=1 ~OVER/UNDER FLOW FLAG 
ERR1: ERROR xX : TRAP ERROR. 

i BR CONT 

; ERR2: ERROR xX :DATA, RESULT ERROR 

: CONT: sRETURN ADDRESS 


:THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
:THE MULD INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 
;RESULT IS os AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
:COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDNT RETURNS CONTROL 
:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDNT 
RE N RET CONT. IF THE a oe 
sMULD IS INCORRECT, THE I 
ANTICIPATED FAILING eas PATTERN, ERRE 
THE RESULT WAS ANTICIPATED CORRECTLY TO BE 
sWILL TRANSFER CONTROL TO THE ERROR LA 
sRESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDNT 
sREPORT THE FAILURE AFTER WHICH CONTROL WILL 
:I1F A TRAP OCCURS (IT SHOULD NOT) THEN OVUNDNT W 
; SHOULD THE Ay MATCH THE ANTICIPATED FEC OVUNDNT WILL 
7STORE AL AND TRANSFER CONTROL T THE ERROR CALL AT ERR1. IF THE 
sFEC IS NOT THe SAME . THE an eee FEC OVUNDNT WILL REPORT 
:THE ERROR AND RETURN TO CONT. NOTE THAT OVUNDNT USES THE FLAG 
:TO TELL WHETHER OR NOT O THESE P PARTICULAR OPERANDS WILL RESULT IN 
“UNDERFLOW (FLAG=-1) OR OVERFLOW <FLAG=0). 


OVUNDNT : (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 


MOV #200.RO :SET FD MODE. 
LDFPS RO 
MOV R1.RO :LOAD ACO, OPERAND. 
LOD (RO) ACO 
MOV R1,R2 :SAVE THE DATA PATTERNS IN CASE OF 
MOV R2. aNSTMP3 ERROR. 
ADD #10,R2 
MOV R2, ahSTMP4 
ADD #10, Re 
MOV Re ars MPS 
MOV 42(R1) ,S#51HP10 
MOV HOVDNTT , a#'S TMP6 
V 40(R1) RO :LOAD THE FPS. 
LDFPS 
MOV #1$.a#STMP2 
MOV #25$, af PVECT 


:SET UP THE FP TRAP VECTOR IN CASE 
;OF ERROR. 
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046444 
046446 


046452 


010100 
062700 


171010 


012700 
174010 
010437 
010537 


010102 
062702 
010237 
000112 


005761 


000010 


000200 
046744 


001250 
001254 


046744 
000020 
000004 


000042 
000056 


000046 


046744 
000030 
000004 


000054 
001236 


000046 


PART 1 MACY11 30A(1052) 
15:26 T$1 


2$: 


3$: 


17$: 


12=MAR-80 15:31 
MOV R1.RO 
ADD #16,R0 
MULD —« (RO) ,ACO 
STFPS RG 

TST = RS 

V #200,RO 
LDFPS 
MOV #HOVDNTT RO 
STD ACO, (ROS 
MOV R4, aS TMP7 
MOV R5.a#STMP11 
MOV #OVDNTT RO 
MOV R1.R2 
ADD #20,R2 
MOV #4.R3 
CMP (RO) +, (R2)+ 
BNE 15$ 
SOB R3,3$ 
CMP 42(R1) RG 
BNE 10$ 
JMP 56(R1) 
INCORRECT FPS. 
TST 46(R1) 

12$ 

ERROR 2 
BR 4$ 
ERROR 2 
BR 4$ 
INCORRECT. 
MOV #OVDNTT RO 
MOV R1,R2 
ADD #30,R2 
MOV #4 R 
CMP (RO) +, (R2)+ 
BNE 1 
SOB R3,16$ 
MOV R1,R2 
ADD #54,R2 
MOV R2. aHSTMP2 
JMP (R2) 
TST 46(R1) 
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PAGE 159 
UNDER\OVER FLOW, USING MULD WITH TRAP DISABLED, TEST 


SEQ 0173 
;COMPUTE THE ADDRESS OF FSRC. 


:TEST INSTRUCTION. 
GET FPS. 

GET FEC. 

:SET FD MODE. 


;GET THE RESULT. 
:CHECK THE RESULT. 


;BRANCH IF INCORRECT. 

:WAS FPS CORRECT? 

BRANCH IF FPS IS INCORRECT. 
;RETURN, TEST COMPLETED. 

:WAS THE RESULT OVER OR UNDER FLOW? 
;BRANCH IF UNDERFLOW. 

REPORT FPS BAD AFTER OVERFLOW. 


sREPORT FPS BAD AFTER UNDERFLOW. 


SEE IF FAILURE IS ANTICIPATED 
>FAILURE. 


;BRANCH IF NOT ANTICIPATED. 


ERROR WAS ANTICIPATED SO RETURN 
TO THE ERROR REPORT IN THE CALLING 


;RESULT WAS NOT ANTICIPATED 
$0 ERROR MUST BE REPORTED HERE. 
sFIRST SEE IF ARGUMENTS SHOULD 


CJKDCB=-A KEF11-A FP DIAG PART 1 MACY11 sat 105e) 
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CJKDCB.P11 


046624 


12-MAR~ 


001002 


104002 
000742 


001004 
010102 
062702 
000112 
005761 
001003 


104002 
000161 


104002 
000161 


104415 


000026 


000056 


000056 


000000 000000 


BNE 19$ 
18$: ERROR 2 
BR 4$ 
19$: 
20$: ERROR 2 
BR 4$ 
-IF AN FP TRAP OCCURS COME HERE. 
55$: MOV (SP) ,R2 
CMP #2$,R2 
BEQ ra 
JMP aAFPSPUR 
268: CMP (SP)+, (SP)+ 
MOV R2, av$TMP2 
STFPS R4 
STST RS. 
MOV #200,RO 
LDFPS RO 
MOV #OVDNTT,RO 
STD ACO, (RO) 
MOV RS, a#STMP11 
CMP R5.44(R1) 
BNE 27$ 
MOV R1,R2 
ADD #50,R2 
JMP (R2) 
273: TST 26(R1) 
BNE 298 
283: ERROR 2 
JMP 56(R1) 
293: 
30$: ERROR 2 
JMP 56(R1) 
OVDNTT: .WORD 0,0.0,0 
JJJDONE : 
RSETUP 
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UNDER\OVER FLOW, USING MULD WITH TRAP DISABLED, TEST 


15: 31° 


SEQ 0174 
HAVE RESULTED IN OVERFLOW OR UNDER 

:FLOW BY LOOKING AT THE FLAG. 

; BRANCH IF UNDE RF LOW EXPECTED. 


ys oH RESULT INCORRECT, EXPECTING 


7 OVERFLOW 


REPORT RESULT INCORRECT, EXPECTING 
UNDERF LOW. 


;GET ADDRESS OF TRAP. 

[WAS THE TRAP DURING THE MULF INSTRUCTION? 
;BRANCH IF YES. 

: OTHERMISE GO REPORT A SPURIOUS 


SRESET THE STACK. 

; SAVE DATA FOR ERROR REPORT. 
GET FPS. 

7GET FEC. 

7SET FD MODE. 


;GET THE RESULT. 

sWAS THE FEC ANTICIPATED? 
“BRANCH IF NOT ANTICIPATED. 
ERROR WAS ANTICIPATED SO 


:RETURN TO THE ERROR REPORT 
[CALLING ROUTINE. 


OF THE 


THE ERROR WAS NOT ANTICIPATED SO 

:1T MUST BE REPORTED HERE. FIRST SEE IF EXPECTED 
[OVERFLOW OR UNDER FL 

;BRANCH IF EXPECTING UNDERF LOW 


;REPORT TRAPPED ON OVERFLOW WITH FIV=0 


;REPORT TRAPPED ON UNDER FLOW WITH FIU=0 


:GO oe? ey THE FPS AND STACK; AND 
:SEE IF THE USER HAS EXPRESSED 

; THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
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CJKDCB.P 
8720 
8721 
8722 
8725 
8724 
8725 
8726 
8727 
8728 
8729 
8730 
8731 
8732 
8733 
8734 
8735 
8736 
8737 046756 
8738 
8739 
8740 046760 
8741 046760 
8742 046762 
8745 046766 
87 046772 
8745 046776 
87 047002 
8747 047006 
8748 047010 
8749 047012 
8750 047014 
8751 047016 
8752 
8753 047020 
8754 047022 
8755 047024 
8756 
8757 
8758 047024 
8759 047024 
8760 047026 
8761 047032 
8762 047036 
8763 047042 
8764 047046 
8765 047052 
8766 047054 
8767 047056 
8768 047060 
8769 047062 
8770 047064 
8771 047066 
8772 047070 
8773 
8774 
8775 047070 


12-MAR= 


047204 
045676 
000000 


045676 
177777 


047204 
127272 


000000 
127272 
177777 


61 
UNDER\OVER FLOW: USING MULD WITH TRAP DISABLED, TEST 
;THE USER TYPED CONTROL G?). 


SERRA RARER EEE EERE ERE ER AE ERR RARER ARANETA 


eeTEST 52 UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


: eTHIS 1S A_TEST OF THE UNDERFLOW AND OVERFL 
: # CONDI 1 JONG THAT CAN OCCUR USING THE MULF INSTRUCTION. 
A SUBROUTINE IS CALLED TO SET UP THE OPERANDS, 
zt “EXECUTE THE MULF INSTRUCTION AND CHECK 
=*THE RESULTS. HERE THE PARTICULAR INTERRUPT, 
; #E THER OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 
*®*® 
eewrerrereerrrrrrTTT TTT TTT Titi iii titi iti eee Tt ee 


TST52: SCOPE 
; UNDERF LOW, EXPONENT OF RESULT = -129 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC , @#OVUNF T 

1$: “WORD  20123,45676 AC 

2$: WORD 20200 0 *FSRC 

3$: "WORD 123,45676 RES 

4$: "WORD -1,-1 “ERROR RES. 

S$: 2000 “FPS BEFORE EXECUTION. 
102004 “FPS AFTER EXECUTION. 

6$: fe FEC 

7$ ERROR 2 St $31 (BUT FIU) NO TRAP. 
ERROR 2 

8$: 

jUNDERF LOW, EXPONENT OF THE RESULT = -193 
LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
JSR C ,a#OVUNF T 

1$: WORD TOia? 127272 AC 

23: .WORD 10200,0 F SRC 

3$: "WORD 60127.127272  ;:RES 

4$: "WORD <1, -1 “ERROR RES. 

5$: 7017 [FPS BEFORE EXECUTION. 
107000 “FPS AFTER EXECUTION. 

6$: 12 FEC 

7$ ERROR 2 :$T 331 (BUT Flu) NO TRAP. 
ERROR 2 

8$: 


OVERFLOW, EXPONENT OF THE RESULT = 128 
KKK4: 


SEQ 0175 
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—~ — sd 
WO NOUBWN 


8814 


— td 


SOERRBRRRERE 


CJKDCB.P11 12-MAR-80 1 
8776 104414 
8777 004737 047606 
8778 060252 125252 
8779 060000 000000 
8780 000052 125252 
8781 177777 =(177777 
8 001000 
878 101006 
8784 900010 
8785 000000 
8786 104002 
8787 000401 
8788 104002 
3789 
8790 
8791 
8792 
87953 104414 
8794 004737 047204 
8795 060345 067654 
8796 060200 000000 
8797 000345 067654 
8798 177777 | =—(177777 
8799 007015 
8800 107002 
10 
104002 
000401 
104002 
000167 000412 


UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC QFOVUNE 

1$: “WORD  60252,125252 AC 

23: .WORD 60000,0 ;FSRC 

3$: "WORD 000052,125252  :RES 

4$: "WORD -1,-1 ERR OR RES. 

S$: 1000 FPS BEFORE EXECUTION. 
101006 “FPS AFTER EXECUTION. 

6$: iy FEC 

7$ ERROR :ST $33 (BUT FIV) NO TRAP 
ERROR 2 

8$: 

OVERFLOW, EXPONENT OF RESULT = 130 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC @#OVUNF T 

1$: “WORD 60345, 67654 AC 

2$: WORD $5200'0 *FSAC 

3$: "WORD  345,67654 “RES 

4$: “WORD =-1,-1 “ERROR RES. 

S$: 7015 “FPS BEFORE EXECUTION. 
107002 “FPS AFTER EXECUTION. 

6$: 10 FEC 

7$: ERROR 2 iS 933 (BUT FIV) NO TRAP 
BR BE 
ERROR 2 

8$: JMP KKKDONE 


: THIS SUBROUTINE, OVUNFT, IS USED TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
:PERNOS 3 a — RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 


e 


: ACARG: .WORD X,x 7;AC_OPERAND 
FSRCARG:.WORD X,X :FSRC OPERAND 
: RES: «WORD X,X EXPECTED RESULT 
; ERRES: .WORD X.X : RROR RESULT 
; FPSB: .WORD X FPS BEFORE EXECUTION 
FPSA: .WORD X :FPS AFTER EXECUTION 
; FEC: ~WORD X SEXPECTED FEC 
FLAG: .WORD X :0/-1,0VER/UNDER FLOW FLAG 
; ERR1: ERROR X ; TRAP ERROR. 
BR CONT 
ERR2: ERROR X DATA, RESULT ERROR 


CONT: [RETURN ADDRESS 


(USING ACO AS THE ACCUMULATOR). THEN 

EXECUTED. IF THE TRAP OCCURS THEN THE 

T RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
; WITH FPSA IF THIS TOO IS CORRECT OVUNFT RETURNS CONTROL 

:TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFT 

“REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 


SEQ 0170! 
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CJKDCB.P11  12=MAR=80 15:26 52 UNDER\OVER FLU: USING MULF WITH TRAPS ENABLED, TEST 
8832 -IN THE SAME WAY. IF THE RESULT OF THE 
8833 “MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
8834 ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
8835 “THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFT 
8836 “WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
8837 “RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNFT WILL 
8838 “REPORT THE FAILURE AFTER WHICH CONTROL WILL ‘8 PASSED TO CONT. 
8839 “IF NO TRAP OCCURS CONTROL Is PASSED TO ERR 
8840 “NOTE THAT OVUNFNT USES THE FLAG 
8841 "TO TELL WHETHER OR NOT THESE LPARTICULAR OPERANDS WILL RESULT IN 
8842 “UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 
8844 047204 012601 OVUNFT: MOV (SP)+,R1 -GET A POINTER TO THE ARGUMENTS. 
BB45 047206 012700 000200 MOV #300. RO “SET FD MODE. 
8846 047212 170100 LDFPS RO 
BB48 047214 010100 MOV R1.RO :LOAD ACO, OPERAND. 
8849 047216 172410 LDD (RO) ,ACO 
8851 047220 010102 MOV R1,R2 “SAVE THE DATA PATTERNS IN CASE OF 
BB52 047222 010237 001240 MOV Re. AS TMP * ERROR. 
8853 047226 062702 000004 ADD 
8854 047232 010237 001242 MOV RO Ba STMPG 
8855 047236 062702 000004 ADD #4 Re 
8856 047242 010237 001244 MOV R2. a4STMPS 
8857 047246 016137 000022 001252 MOV 22(R1) ,aeSTMP10 
8858 047254 012737 047606 001246 MOV HOVE TT aS TMP6 
8860 047262 016100 000020 MOV 20(R1) RO *LOAD THE FPS. 
8861 047266 170100 LDFPS 
8862 047270 012737 047312 001236 MOV #1$. a#STMP2 
8864 047276 012737 047322 000244 MOV #50$,a"FPVECT ;SET UP THE FP TRAP VECTOR IN CASE 
8866 047304 010100 MOV R1,RO “COMPUTE THE ADDRESS OF FSRC. 
8867 047306 062700 000004 ADD #4,RO 
8869 047312 171010 1$: MULF (RO) ACO : TEST INSTRUCTION. SHOULD CAUSE TRAP. 
8870 047314 170000 2$: CFCC | 
8872 047316 000137 047546 JMP ar25$ :FAILURE, NO TRAP. 
8874 047322 011602 50$: MOV (SP) .R2 ;TRAP TO HERE AND SEE IF THE PC OF THE 
8875 047324 020227 047314 CMP R2,#2$ “TRAP WAS THAT OF THE MULF INSTRUCTION. 
8876 047330 001402 BEOQ 51§ “BRANCH IF YES. 
8877 047332 000137 062524 JMP QF PSPUR “OTHERWISE REPORT SPURIOUS FP ERROR. 
8879 047336 022626 51$: CMP (SP)+,(SP)+ :RESET THE STACK 
8880 047340 170204 STFPS R4 : é 
8881 047342 170305 STST RS : . 
B882 047344 012700 000200 MOV #200,RO “SET FD MODE. 
8883 047350 170100 LDFPS R 
8884 047352 012700 047606 MOV #OVETT RO :GET THE RESULT. 
8885 047356 174010 STD ACO, (RO) 
8886 047360 010437 001250 MOV R4, aASTMP7 
8887 047364 010537 001254 MOV RS. aav$SIMP11 
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CJKDCB.P11 


Se 


8891 
8893 


88°" 


PEEP EEE PRE at 


EEEEEE: 
WslWN—© 


8916 


010102 
062702 
010237 
000112 


005761 


047606 
000010 
000002 


000022 


000024 
000036 


000026 


000026 


047606 
000014 
000002 


000034 
001236 


000026 


3$: 


»REPORT 
$: 


16$: 


17$: 
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JMP 


INCORRECT FEC. 
TST 26(R1) 


x= | eee dl 


J 14 
15:31 ” PAGE 


TEST SEQ 0178 


#OVFTT.RO :CHECK THE RESULT. 
R1_R2 

#10,R2 

#2,R3 

(RO) +, (R2)+ | 

15$ :BRANCH IF INCORRECT. 
R3,3$ 

22(R1) RG :WAS FPS CORRECT? 

10$ “BRANCH IF FPS IS INCORRECT. 
24(R1) ,R5S :1S FEC CORRECT? 

5$ IF INCORRECT BRANCH 
36(R1) “RETURN, TEST COMPLETED. 


WAS THE RESULT OVERFLOW OR UNDERFLOW? 
;BRANCH IF UNDERFLOW. 


REPORT BAD FEC ON EXPECTED OVERFLOW. 


ERROR 2 
BR 4$ 
:REPORT BAD FEC ON EXPECTED UNDERFLOW. 
ERROR 2 
BR 4$ 
INCORRECT FPS. 
TST 26(R1) :WAS THE RESULT OVER OR UNDER FLOW? 
BNE 12$ “BRANCH IF UNDERFLOW. 
:REPORT FPS GAD AFTER OVERFLOW. 
ERROR 2 
BR 4$ 
-REPORT FPS BAD AFTER UNDERFLOW. 
ERROR 2 
BR 4$ 
INCORRECT. 
MOV #OVF TT RO SEE IF FAILURE IS ANTICIPATED 
MOV R1.R2 “FAILURE. 
ADD #14,R2 
MOV #2,R3 
CMP (RO) +, (R2)+* 
BNE ‘BRANCH IF NOT ANTICIPATED. 
$08 R3,16$ 
MOV R1,R2 sERROR WAS ANTICIPATED SO RETURN 
ADD #34,,R2 “TO THE ERROR REPORT IN THE CALLING 
MOV R2. a#SIMP2 “ROUTINE . 
JMP (R2) 
TST 26(R1) 


RESULT WAS N ANTICIPATED 
SO ERROR MUST BE REPORTED HERE. 
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8944 
8945 


8947 047534 001002 


ERSERERERS IIS SISS SEE EE 


000200 
047606 


001250 
001254 


000030 


000000 000000 


65 
UNDER\OVER FLOW, USING MULF WITH TRAPS ENABLED, TEST 


FIRST SEE IF ARGUMENTS SHOULD 
; HAVE RESULTED , ig A oy OR UNDER 
LOW BY LOOKING AT THE FLAG. 


BNE 19$ “BRANCH IF ONDE RF. Ow EXPECTED. 
: REPORT SRESULT INCORRECT, EXPECTING 
18$: ERROR 2 OVERFL 
BR 4$ 
19$: :REPORT RESULT INCORRECT, EXPECTING 
20$: ERROR 2 “ UNDERF LOW. 
BR 4% 
-IF NO FP TRAP OCCURS COME HERE. 
55$: STFPS  R4 :GET FPS. 
STST RS “GET FEC. 
V #200,RO “SET FD MODE. 
LDFPS RO 
V HOVE TT,RO :GET THE RESULT. 
STD ACO, (RO) 
R64. aASTMP7 
MOV R5.aeSTMP11 
MOV R1-R2 sERROR WAS ANTICIPATED SO 
ADD #30,R2 “RETURN TO THE ERROR REPORT OF THE 
“CALLING ROUTINE. 
JMP (R2) 
OVFTT: .WORD 0,0,0,0 
KKKDONE : 
RSETUP *GO INITIALIZE THE FPS AND STACK: AND 
“SEE IF THE USER HAS EXPRESSED 


: THE DESIRE TO CHANGE THE SOF TWARE 
sVIRTUAL CONSOLE SWITCH — (HAS 
:THE USER TYPED CONTROL G?) 


REAR EAEREARAARARAEARERAAARARAAAEAAEAEAAERAAAREERAEAAERAARAAAAAARARE 


;#TEST 53 UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 
: STHIS IS A TEST OF THE OVER FLOW AND UNDER FLOW CONDITIONS USING THE 
“*MULD INSTRUCTION WITH TRAPS ENABLED. A SUBROUTINE IS USED TO SET UP 
; * THE OPERANDS, EXECUTE THE MULD PE TRUCTION AND CHECK THE RESULTS. 


© REE AEE EAAEAEEAEREREERERERARERAAKAAKRAAAAARARARAKE RE 


Pe SCOPE 
;UNDERFLOW, EXPONENT OF RESULT = -129 
ee *SET UP THE LOOP ON ERROR ADDRESS. 


1$: 20032, bee sAC 


2,125252 


SEQ 0179 


A 
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CJKDCB.P11 12-MAR-80 15:26 153 UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST 
9000 047640 020300 000000 000000 2s: -WORD 20300,0,0,0 FSRC 

9001 047646 900000 

9002 047650 00017 177777. 177777 38: WORD 177,-1,-1,-1  ;RES 

9003 047656 177777 

9004 047660 000177 177777 4$: -WORD  177,-1 ; ERROR RES. 

9005 047664 125252 125252 "WORD  125252,125252 

9006 047670 002 5$: 2200 -FPS BEFORE EXECUTION. 
9007 047672 102 102204 “FPS AFTER EXECUTION. 

9008 047674 000012 63: 12 FEC 

9009 047676 177777 =] :F 

9010 047700 104002 7$: ERROR 2 ‘ST Ag 31 (BUT FIU) NO TRAP. 
9011 047702 000401 8 

9012 047704 104002 ERROR 2 :$T 155 (BUT FD) 

ani 047706 8$: 

9015 ; UNDERF LOW, EXPONENT OF THE RESULT = -193 

9016 047706 LL2: 

9017 047706 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
9018 047710 004737 050146 JSR @#OVUNDT 

9019 047714 010327 127272 1$: . WORD VOSer.1¢7972 AC 

9020 047720 036363 045454 "WORD  36363,45454 

9021 047724 010000 000000 28: “ WORD ,0,0, :FSRC 

9022 047732 000000 

9023 047734 060127 127272 3$: WORD 60127. 127272 RES 

9024 047740 036363 045454 "WORD  36363.45454 

9025 047744 177777 177777 177777 4S: "WORD -1,-1.=1,=1 :ERROR RES. 

9026 047752 177777 

9027 047754 007217 5S: 7217 ;FPS BEFORE EXECUTION. 
9028 047756 107200 107200 FPS AFTER EXECUTION. 
9029 047760 000012 6S: 12 SPEC 

9030 047762 177777 of 

9031 047764 104002 7$: ERROR 2 ‘ST MS 37 (BUT FIlU) NO TRAP. 
9032 047766 000401 BR 8$ 

9033 047770 104002 ERROR 2 

oars 047772 8$: ‘ 

9036 -OVERFLOW, EXPONENT OF THE RESULT = 128 

9037 047772 LLL3: 

9038 047772 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
9039 047774 004737 050146 JSR 

9040 060252 125252 1$: WORD 65831239 324! 5252 AC 

9041 050004 125252 125252 “WORD 5.125252 :FSRC 

9042 050010 160100 000000 000000 2%: "WORD 120100°0-6°6 =F SRC 

9043 050016 000000 

9044 050020 100177 177777 177777 38: WORD  100177.-1.-1.-1 :RES 

9045 050026 177777 

9046 050030 100177 177777 4$: “WORD 100177,-1 :ERROR RES. 

9047 050034 125252 125252 "WORD  125252.125252 

9048 050040 001200 5$: 1200 -FPS BEFORE EXECUTION. 
9049 050042 101216 101216 “FPS AFTER EXECUTION. 
9050 050044 000010 6S: 10 iF EC 

9051 050046 0 LAG 

9052 050050 104002 7$: ERROR St 33 (BUT FIV) NO TRAP. 
9053 050052 01 BR x3 

9054 050054 104002 ERROR 2 :ST 700 (BUT FD). 

9055 050056 8$: 


SEQ 0180 
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CJKDCB.P11 12=MAR-80 15:26 153 UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST SEO 0181 | 
9056 | 
9057 OVERFLOW, EXPONENT OF THE RESULT = 130 

9058 050056 LL4: 

9059 050056 104414 LPERR +SET UP THE LOOP ON ERROR ADDRESS. 

9060 050060 004737 050146 JSR PC, av0 VUNDT 

9061 050064 060345 067654 1$: “WORD  60345,67654 AC 

9062 050070 056765 045676 "WORD 56765.45676 

9063 050074 060 000000 000000 28: "WORD 60200,0,0,0 :F SRC 

9064 050102 000000 

9065 050104 000345 067654 3$: .WORD  345,67654 RES 

9066 050110 056765 045676 "WORD 56765,45676 

9067 050114 177777 177777 177777 4S: "WORD =1,-1.-1.- sERROR RES. 

9068 050122 177777 

9069 050124 007215 5$: 7215 :FPS BEFORE EXECUTION. 

9070 050126 107202 107202 “FPS AFTER EXECUTION. 

9071 050130 6$: 10 FEC 

9072 050132 000000 0 :F 

9073 050134 104002 7$: ERROR 2 ‘ST AG 33 (BUT FIV) NO TRAP 

9074 050136 000401 BR BS 

9075 050140 104002 ERROR 2 

9076 050142 000137 050560 8$: MP QNLLLDONE 

9078 ; THIS SUBROUTINE. OVUNDT. IS USED TO SET UP THE OPERANDS, EXECUTE 

9079 “THE MULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 

9080 “OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
9081 :TO IT IS MADE THUS: 

9083 : ACARG: .WORD X,X,X,X ZAC OPERAND 

9084 : FSRCARG:.WORD X,X,X,X FSRC OPERAND 

9085 : RES: .WORD X,X.X,X “EXPECTED RESULT 

9086 : ERRES: .WORD X,X,X,X :ERROR_ RESULT 

9087 FPSB: . WORD X FPS BEFORE EXECUTION 
9088 : FPSA: .WORD X “FPS AFTER EXECUTION 
9089 : FEC: “WORD X “EXPECTED FEC 

9090 : FLAG: .WORD X *0/-1, OVER/UNDER FLOW FLAG 
9091 : ERR1: ERROR xX : ERROR. 

9092 : BR CONT 

9093 : ERR2: € x :DATA, RESULT ERROR 
roe 5 CONT: :RETURN ADDRESS 

9096 :T RANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

9097 “THE MULD INSTRUCTION IS EXECUTED. IF THE TRAP 

9098 “RESULT IS CHECKED AGAI S. IF T is” CORRECT THEN THE FPS IS 
9099 COMP WITH FPSA IF THIS TOO IS CORRE 


; D 

;TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDT 

[REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 
7 IN THE SAME WAY. IF THE RESULT OF 

*MULF IS INCORRECT, THE_INC IS 

ANTICIPATED FAILING aie PATTERN, ERRES. IF THE FAILURE IN 

: THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNDT 
WILL TRANSFER ey eat THE ERROR CALL AT E oer ol ae 


mo 


ESULT WAS INCORRE T WAS NOT ANTICIPATED AND T WIL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
Z IF os TRAP OCCURS CONT “> i? PASSED TO ERR}. 
;NOTE THAT OVUNDNT USES THE FLAG 
=TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 


QSQVVsese4eeess 
SRLESFPASLS 


Seb s) 
— 
— —s 
—© 


cr 
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CJKDCB.P 12=MAR-80 15:26 UNDER\OVER FLOW, USING MULD WITH TRAPS ENABLED, TEST SEQ 0182 
ali¢ :UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 

9114 050146 012601 OVUNDT: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS. 
9115 050150 012700 000200 MOV #200,RO “SET FD MODE. 

9116 50154 170100 LDFPS RO 

9118 050156 010100 MOV R1,.RO :LOAD ACO, OPERAND. 

91 19 172410 LOD (RO) ,ACO 

9121 050162 010102 MOV R1,R2 =SAVE THE DATA PATTERNS IN CASE OF 
9122 164 010237 001240 MOV R2. ahSTMP3 “ERROR. 

9123 050170 062702 000010 ADD #10,R 

9124 050174 010237 001242 MOV R2. avSTMP4 

9125 062 000010 ADD #10,R2 

9126 010237 001244 MOV R2, avSTMP5 

9127 050210 016137 000042 001252 MOV 42(R1) ,a#$TMP10 

3128 050216 012737 050550 001246 MOV HOVDTT .avSTMP6 

9130 050224 016100 000040 MOV 40(R1) RO :LOAD THE FPS. 

9131 050230 170100 LDFPS R 

9132 050232 012737 050254 001236 MOV #1$. a#STMP2 

9133 050240 012737 050264 000244 MOV #50$, a#FPVECT :SET UP ontté FP TRAP VECTOR IN CASE 
9135 050246 010100 MOV R1.RO “COMPUTE THE ADDRESS OF FSRC. 

9136 050250 062700 000010 ADD #10,RO 

9138 050254 171010 1$: MULD (RO) .ACO : TEST INSTRUCTION. SHOULD CAUSE TRAP. 
9139 050256 170000 2$: CFCC 

2141 050260 000137 050510 JMP ar25s :FAILURE, NO TRAP. 

9143 050264 011602 50$: MOV (SP) .R2 : TRAP TO HERE AND SEE IF THE PC OF THE 
9144 050266 020227 050256 CMP R2.42$ “TRAP WAS THAT OF THE MULF INSTRUCTION. 
9145 050272 001402 BEQ 518 “BRANCH IF YES. 

3146 050274 000137 062524 MP a4#FPSPUR “OTHERWISE REPORT SPURIOUS FP ERROR. 
9148 050300 022626 51$: CMP (SP) +, (SP)+ *RESET THE STACK 

9149 050302 170204 STFPS 4 “GET FPS. 

9150 050304 170305 STST RS “GET FEC. 

9151 306 012700 000200 MOV #200,RO “SET FD MODE. 

9152 050312 170100 LDFPS 

9153 314 012700 050550 MOV #OVDTT .RO -GET THE RESULT. 

9154 320 174010 STD ACO, (RO) 

9155 050322 010437 001250 MOV R64, B4STMP7 

3156 336 010537 001254 MOV RS .avSTMPl1 

9158 012700 050550 MOV #HOVDTT RO =CHECK THE RESULT. 

9159 050336 010102 MOV R1_.R2 

9160 062 000020 ADD #20,R2 

9161 950344 012703 000004 MOV #6 R3 

9162 050350 022022 3$: CMP (RO)+, (R2)+ 

9163 050352 001027 BNE 15$ *BRANCH IF INCORRECT. 

9164 050354 077303 S08 R3,3$ 

9166 050356 026104 000042 CMP 42(R1) RG :WAS FPS CORRECT? 

9167 050362 001014 BNE 10$ “BRANCH IF FPS IS INCORRECT. 
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- RESULT 
i5$: 


16$: 


17$: 


18$: 
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12-MAR-80 15:31 
UNDER\OVER F 
cP 64(R1) RS 
BNE 
Pp 56(R1) 
INCORRECT FEC. 
TST 46(R1) 
BNE 7$ 
ERROR 2 
BR 43 
ERROR 2 
BR 43 
INCORRECT FPS. 
TST 46(R1) 

12$ 

ERROR 2 
BR 4$ 
ERROR 2 
BR 4$ 
INCORRECT. 
MOV #OVDTT RO 
MOV R1.R2 
ADD #30,R2 
MOV #4 R3 
CMP (RO) +, (R2)+ 
BNE 1 
$08 R3,16$ 
MOV R1,R2 
ADD #54 ,R2 
MOV R2, akSTMP2 
JMP (R2) 
TST 46(R1) 
BNE 19$ 
ERROR 2 
BR 4$ 
ERROR 2 


PAGE 169 
LOW. USING MLD WITH TRAPS ENABLED, TEST 


FEC CORRECT? 
INCORRECT BRANCH. 
TURN, TEST COMPLETED. 


Se Ge Be 
toa hie 
Raa 


x 


| WAS THE RESULT OVERFLOW OR UNDERFLOW? 
RFLOW. 


;BRANCH IF UNDE 
REPORT BAD FEC ON EXPECTED OVERFLOW. 


REPORT BAD FEC ON EXPECTED UNDERFLOW. 


:WAS THE RESULT OVER OR UNDER FLOW? 
BRANCH IF UNDERFLOW. 


;REPORT FPS BAD AFTER OVERFLOW. 


REPORT FPS BAD AFTER UNDERFLOW. 


SEE IF FAILURE IS ANTICIPATED 
;FAILURE. 


BRANCH IF NOT ANTICIPATED. 


;ERROR WAS ANTICIPATED SO RETURN 
tT gaa REPORT IN THE CALLING 


RESULT WAS NOT ANTICIPATED 
; MUST BE REPORTED cP 


: TS SHOUL 
sHAVE RESULTED IN OVERFLOW OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
;BRANCH IF UNDERFLOW EXPECTED. 


;REPORT RESULT INCORRECT, EXPECTING 
; OVERFLOW. 


;REPORT RESULT INCORRECT, EXPECTING 
; UNDERF LOW. 


SEQ OU) 
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\OVER FLOW. USING MULD WITH TRAPS ENABLED, 


TEST 


:GET THE RESULT. 


sERROR WAS ANTICIPATED SO 
[RETURN TO THE ERROR REPORT OF THE 
:CALLING ROUTINE. 


:GO INITIALIZE THE FPS AND STACK; AND 

7SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
ONSOLE SWITCH — (HAS 


SVIRTUAL C 
THE USER TYPED CONTROL G?) 


5 RC He BR IT CC TT TTT TRIO RITTER 


12-MAR-80 15:31 
BR 4S 
-IF NO FP TRAP OCCURS COME HERE. 
55s: STFPS R4 ; 
STST RS 
MOV #200 RO 
LDOFPS RO 
MOV #OVDTT RO 
STD ACO, (RO) 
MOV as 
MOV RS. a#STMP11 
MOV 1-R2 
ADD #50,R2 
JMP (R2) 
OVDTT: .WORD  0,0,0,0 
LLLDONE : 
RSETUP 
: #TEST 54 MODF TEST 


: eTHIS IS A TEST OF THE MODF INSTRUCTION, WHICH MAKES USE OF 


7*A S 


UBROUT INE 


; SAND CHECK THE RESULTS. 


TO SET UP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 


"i eiecieidi alee e eae Ai aids nie aiubwedenannedabetestenewnes 


TST54: 


SCOPE 


:MODF WITH (FSRC=AC=0) 
GGG1: 


:SET UP THE LOOP ON ERROR ADDRESS. 


sAC 

sF SRC 

;FRACTI S 

: INTEGER RES. 

:ERROR FRACTIONAL RES 
: ERROR ETER RES. 


INGETER 
:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
>STORE SINGLE ZERO BAD. 


:AC V 1 <= ZERO FAILED. 


D 15 
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CJKDCB.P11 12-MAR~80 15:26 754 MODF TEST 


9280 
9281 -MODF TEST. WITH (FSRC=0) 
aces 050634 GGG2: 7 
3288 050634 104414 LPERR :SET UP THe LOOP ON ERROR ADDRESS. 
090656 004737 051650 JSR PC 
9285 123456 076543 1$: . WORD 158456, 768c3 TAC 
60000 000000 2$: “WORD 0,0 ESRC 
9287 050652 000000 000000 3$: “WORD 0,0 “FRACTIONAL RES. 
9288 050656 000000 4$: “WORD 0,0 : INTEGER RESULT. 
9289 050662 1 076543 5$: "WORD 123456,76543  :ERROR FRACTIONAL RES. 
9290 050666 133638 177777 6$: "WORD -1,-1 “ERROR INTEGER RES. 
9291 050672 000000 7$: 0 “FPS BEFORE EXECUTION 
9092 050674 cEPS AFTER EXECUTION. 
9 050676 104002 8$: ERROR 2 STORE ZERO FAILURE. 
9294 050700 000401 BR 9$ 
9295 050702 104002 ERROR 2 
9296 050704 9$: 
9297 
9298 :MODF TEST WITH (AC=0) 
9299 050704 6GG3: | 
300 050704 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
9301 050706 004737 051650 JSR PC. a#MODF SUB 
9302 050712 000000 1$: .WORD 0,0 AC 
9303 050716 076543 021234 2$: "WORD 76543,21234 =F SRC 
050722 000000 000000 3$: “WORD 0,0 *FRACTIONAL RES. 
9305 050726 000000 000000 4$: “WORD 0,0 * INTEGER RES. 
9306 050732 000000 000000 S$: “WORD 0,0 “ERROR FRACTIONAL RES. 
9307 050736 177777 177777 6S: "WORD <-1,-1 “ERROR INTEGER RES. 
9308 050742 000003 7$: 3 “FPS BEFORE EXECUTION. 
9309 050744 000004 4 “FPS AFTER EXECUTION. 
9310 050746 104002 8$: ERROR 2 =RES.BAD 
9311 050750 000401 BR 9$ 
9312 050752 104002 ERROR 2 
9313 050754 9S: 
9315 -MODF TEST WITH EXPONENT OF THE RESULT = 25 
9316 050754 GGG4: 
9317 050754 104414 LPERR »SET UP THE LOOP ON ERROR ADDRESS. 
9318 050756 004737 051650 JSR PC. a4MODF SUB 
9319 050762 046252 125252 1$: “WORD 46252,125252 :AC 
9320 050766 040300 000000 2$: “WORD  40300,0 =F SRC 
9321 050772 000000 000000 3$: .WORD 0,0 *FRACTIONAL RES. 
9322 050776 046377 177777 4$: “WORD  46377.-1 * INTEGER RES. 
9323 051002 046252 125252 5$: "WORD 46252.125252 : ERROR FRACTIONAL RES. 
9324 051006 040300 000000 é$: “WORD 40300,0 ; ERROR INTEGER RES. 
9325 051012 000013 7$: 13 FPS BEFORE EXECUTION. 
9326 051014 000004 4 “FPS AFTER EXECUTION. 
9327 051016 104002 8$: ERROR 2 “ST 134 
9328 051020 000401 BR 9$ 
9329 051022 104002 ERROR 2 
9330 051024 9$: 
9331 
9332 


ines TEST WITH EXPONENT OF THE RESULT = 127 


4 " _ LPERR -SET UP THE LOOP ON ERROR ADDRESS. 
7 051650 JSR PC, aAMODF SUB 


9333 051024 
9334 051024 10441 
9335 051026 00473 
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AC 


SR 
;FRACTIONAL RES. 


EXPONENT OF RESULT = 25 


;SET UP THE LOOP ON ERROR ADDRESS. 


AC 


;FSRC 
ee ee RES. 


a 


INTEGE ; 
FPS BEFORE EXECUTION. 
3FPS AFTER EXECUTION. 


“FPS AFTER EXECUTION. ; 


;SET UP THE LOOP ON ERROR ADDRESS. 


a 


FSRC 
:FRACTIONAL RES. 
: INTEGER RESULT. 
ZE FRA 


RESULT = 10 


:SET UP THE LOOP ON ERROR ADDRESS. 
;AC 


CJKDCB-A KEF11-A FP DIAG PART 1 MACYT1 30A(1052) 12-MAR-80 15:31 
CJKDCB.P11 12=MAR-80 15:26 154 MODF TEST 

933% 051032 077652 125252 1$: WORD  77652.125252 
9337 051036 040 000000 2$: "WORD 40300.0 

9338 051042 000000 3$: “WORD 

9339 091046 0 177777 L$: "WORD 77777,-1 
93%40 051052 077652 125252 S$: "WORD 77652.125252 
9341 051056 040300 000000 é$: "WORD  40300,0 

9342 051062 000000 7$: 0 

9343 051064 000004 4 

9344 051066 104002 8$: ERROR 2 

9%45 051070 000401 BR 9$ 

93%46 051072 104002 ERROR 2 

93%47 051074 9$: 

9348 

9349 MODF TEST WITH 

9350 05107 

9351 051074 104414 LPERR 

9352 051076 004 051650 JSR PC, AA#MODF SUB 
9353 051102 04 000001 1$: “WORD  46200,1 
9354 051106 040340 000000 2$: "WORD 40340,0 
9355 051112 000000 3$: “WORD 0, 

9356 051116 046340 000001 4$: "WORD “46340,1 
9357 051122 04 000000 5$: "woRD“ 40000, 

9358 051126 177777 177777 6$: “WORD -1,- 

9359 051132 000013 7$: 13 

9360 051134 4 

93%1 051136 104002 8S: ERROR 

9362 

9363 051140 01 9$ 

9364 051142 104002 ERROR 2 

9369 051144 9%: | 

9367 :MODF | TEST WITH EXPONENT OF THE RESULT = 24 
9368 051144 GGG7: | 

9369 051144 104414 LPERR 

9370 051146 004737 051650 JSR PC a#MODF SUB 
9371 051152 04 000001 1$: "WORD  46000,1 
9372 051156 040340 000000 2$: "WORD  40340,0 
9373 051162 040100 000000 3$: “WORD  40100,0 
9374 051166 046140 000001 4$: "WORD 46140,1 
9375 051172 000000 000000 S$: “WORD 0,0 

9376 051176 177777 177777 6$: "WORD -1,-1 

9377 051202 000000 7$: 0 

9378 051204 000000 0 

9379 051206 104002 8$: ERROR 2 

9381 051210 000401 BR 9$ 

9382 051212 104002 ERROR 2 

9385 051214 9S: 

9385 :MODF TEST WITH EXPONENT OF THE 
9386 051214 

9387 051214 104414 LPERR 

9388 051216 004737 051650 ’ JSR PC @4MODF SUB 
9389 051222 042577 177777 1$4 “WORD 42577,-1 
9390 051226 040200 000000 8 “WORD  40200,0 
9391 051232 040177 176000 3$: “ WORD 10477. 176000 


3 FSRC 
:FRACTIONAL RES. 


;BAD CONSTANT T 24), 
:0R ST 525 TO 050. INTO 150. 


Raed 
;BAD CONSTAN (NOT 24) 
OR ST 525 TO 130. INTO 050 


SEQ 0186 
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9392 
9393 
394 
9395 
9397 
a 
9399 
9401 
94 
9403 
9404 
9407 
94, 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 
9420 
9421 
9422 
9423 
9424 
9425 
9427 
9428 
29 
9431 
9433 
94 
9435 
94, 
9437 
94, 
9439 
0 
9441 
9442 
9443 
9445 
9446 
9447 


Oe37" 
1 7 
177777 
000000 
000000 
104002 


000401 
104002 


140000 
177777 
177777 


051650 
14 


LL 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR-80 15:26 754 


9$: 


9$: 


12-MAR-80 15:31 
MODF TEST 
-WORD 42577,140000 
-WORD <-1,-1 
-WORD <-1,-1 
0 
0 
ERROR e 
9$ 
ERROR 2 


LPERR 


THE EXPONENT OF 


C a#MODF SUB 
tye 140001 
40200,0 
34600,0 
42577, * 140000 


~|.=1 

2 

9$ 

2 

EXPONENT OF THE 

PC. a#MODF SUB 
42377, 100000 
40 200.0 


48877,100000 


-15-1 

2 

9$ 

2 

EXPONENT OF THE 


PC, B¥MODF SUB 
40177,-1 


40200,0 
40177,-1 


46177,-1 


F 15 
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SEQ 0187 
F ik s RES. 
;ERROR FRACTIONAL ai 


:FPS AFTER EXECUTION. 


THE RESULT = 10 

;SET UP THE LOOP ON ERROR ADDRESS. 
3AC 
; RACTIONAL RES. 


UTION. 
ST $32 TO 122 INTO NORMALIZE. 


RESULT = 9 
:SET UP THE LOOP ON ERROR ADDRESS. 
sAC 


sFSRC 
;FRACTIONAL RES. 


;ERROR INTEGER 
;FPS BEFORE EXECUTION. 
=FPS AFTER EXECUTION. 


RESULT = 0 
3SET UP THE LOOP ON ERROR ADDRESS. 


SRC 
FRACTIONAL RES. 


:FPS AFTER EXECUTION. 


CJKDCB-A _KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
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CJKDCB.P11 


051446 
051454 


051454 


2 
051574 


051574 


051650 


051650 
170000 


000000 
160000 
000000 
160000 


8$: 


:MODF TEST WITH 
GGG12: 


9$: 


12-MAR-80 15 
MODF TEST 


ERROR 


BR 
ERROR 


LPERR 


2 
9$ 
2 


2 
9$ 
2 


2 
9$ 
2 


PC .a4M0D 
142777 
40200,0 
14 ,O 
142777, 160000 


40000, 
42777 , 160000 


2 
9$ 


2 
GGGDONE 


EXPONENT OF THE 
PC, a#MODF SUB 
34377,-1 
40200,0 
34377,-1 


0,0 
34377 ,-1 


EXPONENT OF RESULT = ~-64, 


:SET UP THE LOOP ON ERROR ADDRESS. 
se @4MODF SUB 


40300,0 
20100.2 


0 
20100,1 
0,0 


F SUB 
170000 


G 15 
:31 PAGE 174 


ST 041 TO 046 INTO 246. 


RESULT = -15 


;SET UP THE LOOP ON ERROR ADDRESS. 


“FSRC 
-FRACTIONAL RES. 
: INTEGER RES 


FPS BEF 
“FPS AFTER EXECUTION. 


IN ROUND MODE 


sAC 
sFSRC 
:FRACTIONAL RES. 


ERROR FRACTIONAL RES 
;ERROR INTEGER RES. 
PS BEFORE EXECUTION. 


3FPS BE 
:FPS AFTER EXECUTION. 
;ROUND TRUNK, ST 126 INTO ROUND. 


EXPONENT OF RESULT = 11 
3SET UP THE LOOP ON ERROR ADDRESS. 


ZAC 
sF SRC 
:FRACTIONAL RES. 


TEGER RES. 
“FPS BEF ORE EXECUTION. 
:FPS AFTER EXECUTION. 
:SIGN OF FRACTION. 


SIGN OF INTEGER. 
:GO TO NEXT TEST. 


— ae 


SEQ 0188 


H 15 
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SEQ 0189) 


' 


9505 - THIS SUBROUTINE, MODFSUB, IS CALLED TO SETUP THE 
9206 “OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
-IT 1S CALLED THUS: 
9508 : 
9509 : ACARG: .WORD X,X :AC OPE 
9510 : FSRCARG:.WORD X,X “FSRC OPERAND 
9511 : FRES: .WORD X,X “FRACTIONAL RESULT 


CUKDCB-A KEF11-A FP DIAG PART 1 MACY11 30a 1052) 
12=MAR=80 15:26 754 


CJKDCB.P11 


S 


te 4 2 wd 3 


RRASSSIASS 
N SOD NRnP Ww 


9521 


051650 


051706 
051710 
051714 
051716 
051720 
051724 
051726 
051732 
051734 
051740 
051742 
051744 


01 

174110 
010102 
010237 
062702 
010237 
062702 
010237 
062702 


001236 


THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). 
NSA Bate ae i eet RESULTS ARE RETRIEVED. 


12-MAR-80 
MODF TEST 


15:31 
INTRES: .WORD 
ERFRES: .WORD 
heat . WORD 

FPSB: WORD 
FPSA: . WORD 
ERR1: ERROR 

BR 
ERR2: ERROR 
CONT: 


T OF THE R 


I 15 
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; INTEGER tu 
;ERROR FRACT 


e* * 8 
KO OK 
P*] 
wT 
—~ 


FRACTION ERROR 
ONT 


; INTEGER ERROR 
;RETURN ADDRESS 


THE MODF 


S COMPARED WITH gett IF THIS IS CORRECT 
OF THESE ARE CORRECT 


x 

x 

xX 

xX ;FP 

: 3FPS AFTER EXECUTION 
C 

xX 


THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 


: FAILURE MATCHES THE 
CALL_AT ERR}. 
“NOT CORRECT THEN 


:CALL AT ERR2. 
MODF SUB: 
MO 


1$: MODF 


CONT. IF 


THE FPS WAS INCORRECT 
ON IS_ INCORRECT IT <— WITH 


Ay. PASSES CONTROL T 


TRUE RESULT THEN MOD 
LIKEWISE IF THE INTEGER PART OF THE RESULT 15 


IT IS COMPARED WITH THE ANTICIPATED INTEGER 
:FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
:IF A MATCH IS MADE HOWEVER, MODFSUB WILL RETURN CONTROL TO THE ERROR 


MOV 
#200,R0 
RO 
R1.RO 
(RO) ,ACO 
#MODP1 RO 
RO) ACI 
(R1) RO 
50. 

#1$, a4STMP2 
R1.RO 

#4 RO 

(RO) .ACO 


(SP)+,R 


:GET A POINTER TO THE ARGUMENTS 


1 
sSET FD MODE. 


:SET UP ACO 
:PUT A BACKROUND PATTERN INTO AC1. 
:SET UP THE FPS. 


: COMPUTE THE ADDRESS OF THE FSRC. 


sEXECUTE THE TEST INSTRUCTION. 


:GET THE FPS. 
:SET FD MODE. 


;GET THE FRACTIONAL RESULT. 
:GET THE INTEGER RESULT. 


SAVE THE DATA IN CASE OF ERROR. 


SEQ 0190 


J.15 
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9568 051774 010237 001246 MOV R2, a#$TMP6 
9569 052000 012737 052 001250 MOV #MODF TO, aa$TMP7 
9570 052006 012737 052216 001252 MOV wMODE 11 ° aASTMP10 
9571 052014 010437 001254 MOV 4, a4$TMP11 
997 052020 016137 32 001256 MOV B3%R1) aw$TMPT2 
9574 052026 012702 052206 MOV #MODF TO,R2 :CHECK THE FRACTIONAL RESULT. 
9575 052032 026112 10 CMP 10(R1), (Re) 
9576 052036 001022 BNE 10 “BRANCH IF INCORRECT. 
9577 052040 026162 000012 000002 CMP 12(R1),2(R2) 
9978 052046 001016 BNE 10$ 
9580 052050 012702 052216 MOV #MODFT1,R2 :CHECK THE INTEGER RESULT. 
9581 052054 026112 000014 CMP 14(R1), (Ro) 
9582 052060 001026 BNE 15 :BRANCH IF INCORRECT. 
9583 052062 026162 000016 000002 CMP 16(R1),2(R2) 
9584 052070 001022 BNE 15$ 
9586 052072 104 000032 CMP 32(R1).R4 :CHECK THE FPS. 
9587 052076 001034 BNE 20$ “BRANCH IF INCORRECT. 
9989 052100 000161 000042 9$: JMP 42(R1) :RETURN. 
9591 : FRACTIONAL ERROR. 
9592 052104 026112 000020 i0$: CMP 20(R1), (R2) :WAS THE ERROR ANTICIPATED? 
9593 052110 001010 BNE 11$ “BRANCH IF NOT ANTICIPATED. 
94 052112 026162 000022 000002 CMP 22(R1). 2(R2) 
9595 052120 001 BNE 
9596 052122 010102 MOV RI "ao “THE ERROR WAS ANTICIPATED SO 
9597 052124 062702 000034 AD” #34,R “RETURN TO THE ERROR REPORT AT THE 
9598 “CALLING ROUTINE. 
9599 052130 000112 JMP (R2) 
Ene 052132 118: : THE ERROR WAS NOT ANTICIPATED SO 
9602 052132 104002 12$: ERROR 2 “REPORT THE INCORRECT FRACTION HERE. 
9603 052134 000761 BR 9$ 
9604 
9605 : INTEGER ERROR. 
9606 052136 026112 000024 15$: | CMP 24(R1), (R2) :WAS THIS ERROR ANTICIPATED? 
9607 052142 001010 BNE “BRANCH IF NOT. 
9608 052144 026162 000026 000002 CMP 26(R1), 2(R2) 
9609 052152 001 BNE 16$ 
9610 052154 010102 MOV R1.R2 :THE ERROR WAS ANTICIAPTED SO RETURN 
9611 052156 062702 000040 ADD #40,R2 >TO THE ERROR REPORT iN THE CALLING 
9612 ROUT INE. 
9613 052162 000112 JMP (R2) 
9615 052164 16$: = THE ERROR WAS NOT ANTICIPATED SO REPORT 
9616 052164 104002 17$: ERROR 2 “THE INTEGER FAILURE HERE. 
9617 052166 000744 BR 9$ 
9619 -FPS INCORRECT. 
9620 052170 010437 001254 0$: MOV R4,a4STMP11 :REPORT INCORRECT FPS. 
9621 052174 016137 000032 001256 MOV 32(R1), STP 12 
9622 052202 104002 21$: ERROR 2 
9623 052204 000735 BR 9$ 


SEQ 0191 


CJKDCB=A KEF11-A FP DIAG PART 1 
12-MAR-80 15:26 


CJKDCB.P11 


052206 
052214 


052216 
052224 


033266 
052234 


052236 
052236 


052240 


052242 
052242 
052244 


104414 


000000 


000000 


177777 


053746 


MACY11 aygi se) 


000000 


000000 


177777 


000000 
000000 
177777 
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12-MAR-B0 15:31 
MODFTO: .WORD 0,0,0,0 
MODFT1: .WORD 0,0,0,0 
MODP1: .WORD <-1,-1,-1,-1 
GGGDONE : 
RSE TUP *GO INITIALIZE THE FPS AND STACK; AND 
“SEE IF THE USER HAS EXPRESSED 
: THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
‘THE USER TYPED CONTROL G?) 
SERRE RRA AREER RRA RARER EERE AEE ARERR ERE RARER ERA R RARER EER 
:STEST 55 MODD TEST 
<STHIS IS A TEST OF THE MODD INSTRUCTION. IT MAKES USE OF A SUBROUTINE 
**TO SET UP THE ARGUMENTS, EXECUTE THE INSTRUCTION AND CHECK THE 
; #RESULTS. 
RARER EER AERA EEE EAE AEA AEEERERAAEEEEEEEREEREREEREKE 
TST55: SCOPE 
MOD WITH (Fs. C=AC=0) 
" LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC, a#MODDSUB 
1$: “WORD 0,0,0,0 SAC 
2s . WORD 0,0.0,0 sFSRC 
3$ .WORD 0,0,0,0 : FRACTIONAL RES. 
4$ .WORD 0,0,0,0 S INTEGER RES. 
5$ .WORD 0,0,0.0 sERROR FRACTIONAL RES. 
6$ .WORD 0,0,-1,-1 :ERROR INTEGER RES. 
7$: 200 -FPS BEFORE EXECUTION. 
204 “FPS AFTER EXECUTION. 
8$: ERROR 2 
BR 5$ 
Pa ERROR 2 :$T 231 TO 142 INTO 143 
-MODD TEST WITH FSRC=0 
" _LPERR :SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0192 


CJKDCB=A KEF11-A FP DIAG PART 1 
80 15:26 


CJKDCB.P11 


9680 
9681 


052606 
052610 


12=MAR~ 


004737 
012345 
034567 


053746 
000000 


127272 
127272 


053746 


MACY11 30A(1052) 
T55 


177777 


000000 
000000 
177777 


1$: 
2s: 
3$: 
4$: 
5$: 
6$: 
7$: 
8$: 


9$: 
sMODD TEST WITH 
HHH3 : 


;MODD TEST WITH 
HHHé4 : 


12-MAR=B0 15:31 
MODD TEST 
JSR 
WORD 19345 oO 
“WORD 
“WORD 0,0,0,0 
.WORD 0,0,0,0 
.WORD 0,0,0,0 
.WORD  012345,67012 
"WORD 34567,012345 
"WORD =1,-1.-1,-1 
213 
204 
ERROR 2 
BR 9$ 
ERROR 2 

(AC=0) 

LPERR 
JSR PC @4MODDSUB 
“WORD 0.0.0.0 
.WORD 72727,127272 
“WORD 72727.127272 
“WORD 0,0.0, 
.WORD 0,0,0,0 
.WORD <-1.-1,-1,-1 
WORD  -1,-1,-1,-1 
213 
204 
ERROR 2 
BR 5$ 
ERROR 2 


EXPONENT OF THE 


56580 i eteLe 
125252, 125250 
40300,6,0,0 
0,0,0,0 
56377,-1.-1.74 


0,0 
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;AC 

iF SRC 

;FRACTIONAL RES. 

; INTEGER RES. 

;ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
sSTORE DOUBLE ZERO 


sAC V 1 <= ZERO ST 143 


;SET UP THE LOOP ON ERROR ADDRESS. 


:FSRC 

FRACTIONAL RES. 

; INTEGER RES. 

ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 


;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 


RESULT = 57 

SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

7FSRC 

FRACTIONAL RES. 

; INTEGER RES. 

;ERROR FRACTIONAL RES. 


CJKDCB=A KEF11-A FP DIAG PART 1 
12-MAR~-80 


CJKDCB.P11 


05 
052740 


125252 
056377 
177777 
000213 


15:26 


199979 


053746 
000000 


146314 
167737 
000000 


177777 
125726 
177777 


177777 
125726 


053746 


MACY11 30A(1052) 
T55 


177777 


000000 


177777 


6$: . WORD 
7$: 213 
204 
8$: ERROR 
BR 
ERROR 
9$: 
mn TEST WITH 
_LPERR 
JSR 
1$: . WORD 
23: . WORD 
. WORD 
3$: . WORD 
4$: . WORD 
. WORD 
5$: . WORD 
6$: . WORD 
. WORD 
7$: 210 
204 
8$: ERROR 
BR 
ERROR 
9$: 
:MODD TEST WITH 
HHH6 : 
LPERR 
JSR 
1$: WORD 
23: «WORD 
3$: ~ WORD 
4$: . WORD 
5$: . WORD 
6$: . WORD 
7$: 213 
204 
8$: ERROR 
ERROR 
9$: 


Pa 
MODD TES 


. WORD 


15:31 


125 ae. its ie 


56377 


2 


EXPONENT OF THE 


PC ,a#MODDSUB 
140240,0,0,0 
63714, 146314 


133578, 167737 


0,0 0 0 


163777,-1 
162531 .125726 


63777.-1 
162531, 125726 


r4 
9$ 
2 


EXPONENT OF THE 


PC ,@4MODDSUB 


56200.0.0,1 
40340,0,0,0 
0,0,0,0 

56340.0,0.1 
40000,0,0,0 
56340,0.0,1 
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;ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 


:FPS AFTER EXECUTION. 
7ST 526 TO 134 INTO 135 


RESULT = 
;SET UP THE LOOP ON ERROR ADDRESS. 


AC 
sFSRC 


FRACTIONAL RES. 

; INTEGER RES. 

ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
[FPS AFTER EXECUTION. 
7ST 526 BAD SIGN 


RESULT = 
7SET UP THE LOOP ON ERROR ADDRESS. 


sAC 
sFSRC 


7FRACTIONAL RES. 

7 INTEGER RES. 

ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS var op eB 


: CONSTANT BAD (NOT 56) 
:0R ST 525 TO 080 INTO 150 


SEQ 0194 


CJKDCB-A_ KEF11-A FP DIAG PART 1 
12-MAR~80 15:26 


CJKDCB.P11 


9792 
9793 


ear 


SSeS 


RRARARRARAAARADD 


WWAAWANS 
SRSASKS 


053746 


000000 


053746 
177777 


000000 
177760 
177777 
177777 
177777 


053746 
000000 


177777 
000001 


MACY11 30A(1052) 
T55 


177777 
000000 
000000 
177760 
177777 
177777 


000000 


sMODD TEST WITH EXPONENT OF THE 
HHH? : 


LPERR 
JSR 
1$: . WORD 
2s: . WORD 
3$: . WORD 
4$: . WORD 
S$: . WORD 
6$: . WORD 
7$: 213 
200 
8$: ERROR 
BR 
ERROR 
9$: 
:MODD TEST WITH 
HHHB : 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
3$: . WORD 
4$: . WORD 
5$: . WORD 
6$: . WORD 
7$: 217 
200 
8$: ERROR 
BR 
ERROR 
9$: 
sMODD TEST WITH 
HHH9 : 
LPERR 
JSR 
1$: . WORD 
2$: . WORD 
. WORD 


12-MAR~80 
MODD TEST 


15:31 


PC ,a#MODDSUB 
56000,0,0,1 
40340,0.0.0 
40100,0,0,0 
§6140,0,0,1 
0,0,0,0 
56140,0,0,1 


2 
9$ 
2 


EXPONENT OF THE 


PC ,a#MODDSUB 
51177,-1,-1,71 
40200,0.0,0 
40177,-20,0,0 
51177.-1,-20,0 
-1,-1,-1,-1 
-1,-1,-1,-1 


2 
9$ 
2 


EXPONENT OF THE 


PC. a#MODDSUB 
40200,0,0,0 
47577,-1 
176000, 1 
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RESULT = 56 

;SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

sFSRC 

;FRACTIONAL RES. 

; INTEGER RES. 

sERROR FRACTIONAL RES. 

;ERROR INTEGER RES. 

;FPS BEFORE EXECUTION. 


;BAD CONSTANT (NOT 
:ST 525 TO 150 INTO 050 


RESULT = 36 

7SET UP THE LOOP ON ERROR ADDRESS. 
zAC 

zFSRC 

;FRACTIONAL RES. 

: INTEGER RES. 

;ERROR FRACTIONAL RES. 

sERROR INTEGER RES. 


:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 


RESULT = 30 


SET UP THE LOOP ON ERROR ADDRESS. 


sAC 
sFSRC 


SEQ 0195 


CJKDCB~ 
!, KOCB. 


oa 
850 


F. 
3 


<7 





A 
PI 


KEF11-A FP DIAG PART 1 
1 12 


ee Oates 





—s 

y 

— 
MMW 


— 
—_, 


¥ 
s 


15:26 
000000 
177777 


177777 





177777 
000000 


MACYT? eae 


000000 


000000 
177777 
177777 


9S: 


;MODD TEST WITH 
HHH10: 


;MODD TEST WITH 
HHH1 1: 


1$: 


2$: 
3$: 
4$: 
5$: 
6$: 








B 16 
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EST 
31600,0.9.0  : FRACTIONAL RES. 
47577 ,~1 :JNTEGER RES. 
176000 .0 i 
0.0.0.6 JERROR FRACTIONAL RES. 


g* 38 8 


$x 
Z 


5 588 8 588 


9% 


ERROR 


z 
3 


5 55688 3° 


4 


47577.-1.-1.-1 


2 
9$ 
2 


EXPONENT OF THE 


PC a#MODDSUB 
47777 ,~1 
177000,0 
40200,0,0.0 
0,0.0,0 — 
47777 ,-1 
177000,0 
0,0,177000,0 


-1,-1,-1,-1 


2 
9$ 
2 


EXPONENT OF THE 


PC a#MODDSUB 
40200,0,0,0 
40177 72727 

127272 shal 37 


401 
a0107 4? ooo 
0,0,0,0 


-1,-1,-1,-1 
0.0,-1.-1 


ERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 
FPS AFTER pee 

TO 122 


4 3 Cae sae? ST 5 


zsAC V1 

7OR ST 733 tO 156 INTO 157. 
RESULT = 31 

SET UP THE LOOP ON ERROR ADDRESS. 
3AC 

7 F SRC 


FRACTIONAL RES. 

; INTEGER RES. 

;ERROR FRACTIONAL RES. 
sERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 


:FPS AFTER EXECUTION. 
; (BUT FD) STORE x10 


RESULT = 0 

SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

zFSRC 


FRACTIONAL RES. 

; INTEGER RES. 

ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 


CJKDCB-A KEFII<-A FP 


CJKDCB.PT1 


; 


PRRLLARARARARARRRARRAARARA  RRRRARRA 


9905 


991 
991 
991 
991 
991 
991 
991 
991 
991 
991 


MSWIN 0 O®NAULSWN0 






BSEBEL8SS 


SENSE EES 


DOOOCOCOOCOCOOCOOCOOOOoooOoo 
PUP PUP PUPP PPA AIA II 


Ww 


Ros 


™ 


RS 





053746 


177777 


054344 


000000 


000000 
177777 
177777 


177777 
177777 
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O1AG PART 1 MACY1? 30A(1052) 12-MAR-80 15:3! 
2-MAR 15:26 T55 MODD TEST 
177777 
7$ 200 sFPS BEFORE EXECUTION. 
200 -FPS AFTER EXECUTION. 
1 8$: _— ‘. 
104002 ERROR 2 ST 246 TO 126 INTO 127 (Bui FD) 


9%: 
-MODD TEST WITH EXPONENT OF THE RESULT = -115 
HHH12: 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC. a#MODDSUB 
1$: “WORD 33/77,-1 AC 
"WORD -1,52525 
2$: "WORD 40200,0,0.0 =FSRC 
3S: \WORD  3377,-1 :FRACTIONAL RES. 
"WORD -1,52525 
4$: “WORD  0,0,0.0 : INTEGER RES. 
5$: “WORD -1,-1,-1,-1 :ERROR FRACTIONAL RES. 
68: .WORD 0,0,-1,-1 sERROR INTEGER RES. 
7$: 200 :FPS BEFORE EXECUTION. 
200 “FPS AFTER EXECUTION. 
8$ ERROR 2 
BR 9$ 
os ERROR 2 :ST 446 TO 126 INTO 127 (BUT FD) 
MODD TEST WITH EXPONENT OF THE RESULT = -63, IN ROUND MODE. 
"  LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#MODDSUB 
1$: “WORD  40300,0.0,0 ZAC 
2$: -WORD  20200.0,0,1 =F SRC 
3$: -WORD 20300,0,0.2 :FRACTIONAL RES. 
4$: .WORD 0,0,0,0 : INTEGER RES. 
5$: .WORD 0,0,-1,-1 -;ERROR FRACTIONAL RES. 
6S: .WORD  -=1,-1,-1,-1 sERROR INTEGER RES. 
7$: 200 :FPS BEFORE EXECUTION. 
200 “FPS AFTER EXECUTION. 
8$: ERROR 2 “ST 127 INTO RND/TR 
BR 9$ 
ERROR 2 
9$: JMP @AHHHDONE -GO TO THE NEXT TEST. 


7 THIS SUBROUTINE, MODDSUB, IS CALLED TO SETUP THE 
*OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 


SEQ 0197 


CJKDCB-A KEF11~A FP D 
12-MAR~ 


CJKOCB.PT1 


ee a 


9961 


See ee reese ues 


S88s8ss 


33 Ss 
MEWN—O 


$i sGSYEGGUIAREECSSERSECEPIREGSENE 


assess 


oo-0o7-0707° 
OMVOAnonoonn 
ScS 


000200 


052226 
000060 
054012 
000010 


000200 
054324 
054334 
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001236 








z:1T IS CALLED THUS: 


: : WORD X.X.X.X ZAC _OPERAND 
: FSRCARG:.WORD X.X.X.X [FSRC OPERAND 
: FRES: .WORD X.X.X.X [FRACTIONAL RESULT 
: INTRES: .WORD .X.X.X.X T INTEGER RESULT 
: ERFRES: .WORD X.X.X.X TERROR FRACTION RESULT 
: ERINTRES:.WORD X.X.X.X TERROR INTEGER RESULT 
: FPSB:  .WORD xX [FPS BEFORE EXECUTION 
: FPSA: .WORD X [FPS AFTER EXECUTION 
: ERR1: ERROR X [FRACTION ERROR 
: BR CONT 
: ERR2: ERROR xX s INTEGER ERROR 
: CONT: [RETURN ADDRESS 
“THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODD 
INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
“THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 


HE I 
*THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
PS OMPARED WITH pe aA ogee the IF NO ERRORS OCCURRED 


WAS I 
ON IS te te IT Is COMPARED WITH 
, ERFRES. IF THIS DOESN'T MATCH 
R THE IS REPORTED HERE. IF THE ANTICIPATED 
; FAILURE ars THE TRUE RESULT THEN MODDSUB PA —- CONTROL TO THE 
-ERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF T ULT IS 
:NOT CORRECT THEN IT 1S_ COMPARED WITH THE ANTICIPATED INTEGER 
:FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 


sIF A i IS MADE HOWEVER, ieasicad WILL RETURN CONTROL TO THE ERROR 
:CALL AT ERR. 


~ 


MODDSLB: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 

V #200, :SET FD MODE. 

LDFPS RO 

MOV R1.RO :SET UP ACO 

LOD (RO) ,ACO 

MOV #MODP1,R :PUT A BACKROUND PATTERN INTO AC1. 

LDD (RO) ACI 

MOV 60(R1) .RO :SET UP THE FPS. 

LDFPS 6 

MOV #1$, a4STMP2 

MOV R1,RO =COMPUTE THE ADDRESS OF THE FSRC. 

ADD #10,R0 

1$: MODD _— (RO) ,ACO sEXECUTE THE TEST INSTRUCTION. 

STFPS RG GET THE FPS. 
V #200,RO “SET FD MODE. 

LDFPS 

MOV DTO,RO :GET THE FRACTIONAL RESULT. 

STD ACO, (RO) 

MOV #MODDT1,R -GET THE INTEGER RESULT. 

STD ACT, (RO) 

MOV R1,R2 :SAVE THE DATA IN CASE OF ERROR. 


SEQ OU! 


CJKDCB-A KEF11~-A FP D 


CJKDCB.P11 


10016 


~— 
88s 
O@n 


qemu 


Swn-o 


Sooo SS SSR ER ERE 


DADA 
MEW HO OONOM 


ee ee ee ee ed ed ed = od ot 2 od I I oJ =. 


SER 


S 


Segeeperenee 


: 


a8 


— td dS — 
VANSS Sv 


EPEEEEE FE 
Ss 


054240 


05424 
05424 
054244 


12-MAR~ 


01 
01 703 
1 
1 
012737 
01 
016137 
0104 
arth: 
01010 
703 


02 as3 
0 
010103 


001026 
077503 


000062 
000072 


054324 
000040 
000004 


054334 
000050 
000004 


2$: 


3$: 


9$: 
sFRA 
10$: 


50$: 


11$: 
12$: 


7 INT 
15$: 


MOV R2. aeSTMP3 
ADD #10,R2 
MOV R2. aeS IMPS 
ADD #10,R2 
MOV R2, aes 
ADD #10,R2 
MOV R2, ahSTMP6 
MOV T0,a#$ 
MOV Tl .aes 
MOV 62(R1) ,aaSTMP12 
MOV R4. a#STMP11 
MOV #MODDTO,R2 
MOV R1.R3 
ADD #20,R3 
MOV #4 R5 
CMP (R2)+, (R3)+ 
BNE 10$ 
S08 R5,2$ 
MOV #MODDT1,R2 
MOV R1.R3 
ADD #30,R3 
MOV #4 R5 
CMP (R2)+, (R3)+ 
BNE 15$ 
SOB R5,3$ 
CMP 62(R1) ,.R4 
BNE 20$ 
JMP 72(R1) 
CTIONAL ERROR. 
MOV #MODDTO.R2 
MOV R1.R3 
ADD #40,R3 
MOV #4R5 
CMP (R2)+, (R3)+ 
BNE 11$ 
SOB R5,50$ 
MOV R1, 
ADD g 
JMP (R2) 
ERROR 2 
BR 9$ 
EGER ERROR. 
MOV #MODDT1,R2 
MOV 1.R3 
ADD #50,R3 
MOV #4 R5 
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[Ac PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 185 
15:26 T55 MODD TEST 


3CHECK THE FRACTIONAL RESULT. 


;BRANCH IF INCORRECT. 


7CHECK THE INTEGER RESULT. 


;BRANCH IF INCORRECT. 


;CHECK THE FPS. 
BRANCH IF INCORRECT. 


;RETURN. 


WAS THE FRACTIONAL ERROR ANTICIPATED? 


;BRANCH IF NOT ANTICIPATED. 
THE ERROR WAS ANTICIPATED SO 


RETURN TO THE ERROR REPORT AT THE 
;CALLING ROUTINE. 


THE ERROR WAS NOT ANTICIPATED SO 
REPORT THE INCORRECT FRACTION HERE. 


WAS THE INTEGER ERROR ANTICIPATED? 


g 


PEPER ERE Err e EREEEEE 


asus 


a eee ee ee el 
wh 


OOoCoCCoooCoooo°oo 
Rueeeae 


SRIRARWW—OSRUSAR 


ed ek od od dt oo St I oS SS SS 
rormnenn 
RAs SO 


OOCOCOCCOOCOCOCooO 
SS heb ed ab bab ab abad ab ded bead Bada dad adad 


~N 
™N 





022223 
1 
01010 
96270 
000112 


006736 


000070 


001254 
00006 


000320 
045676 


000000 
045676 


000000 
177777 
177777 
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001256 


000000 


000000 





60$: CMP (R2)+, (R3)+ 
BNE 17$ :BRANCH IF NOT ANTICIPATED. 
S08 R5S.60$ 
MOV R1,R2 : THE ERROR WAS ANTICIAPTED SO RETURN | 
ADD #70.R2 =TO THE ERROR REPORT IN THE CALLING : 
ROUTINE. | 
JMP (R2) | 
16$: RROR WAS NOT ANTICIPATED SO REPORT 


: 7 THE E 

17$: ERROR 2 >THE INTEGER FAILURE HERE. 
BR aS 

-FPS INCORRECT. 

O$: MOV R TMP 11 


4, a REPORT INCORRECT FPS. 
MOV ~~ ) ,QASTMP12 


21$: ERROR 
BR 
MODDTO: .WORD 0.0.0.0 
MODDT1: .WORD 0,0,0,0 
HHHDONE : 
RSETUP :GO INITIALIZE THE FPS AND STACK; AND 


;SEE IF THE USER HAS EXPRESSED 

THE DESIRE TO CHANGE THE SOFTWARE 
:VIRTUAL CONSOLE SWITCH REGISTER (HAS 
; THE USER TYPED CONTROL G?). 


© IKKE EKER EEEREEERKKEKEEKEKKEEKKEEEEKEEKEKEEKEREE 


**TEST 56 UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


zz 

-*THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW CONDITIONS. IT MAKES 
=*USE OF A SUBROUTINE TO SETUP THE OPERANDS, EXECUTE THE MODF INSTRUCTION 
:*AND CHECK THE RESULTS. TRAPS ARE DISABLED DURING THIS TEST. 

** 


° 
RK KEKE EERE EEK EKER EREEEKEREKEEEKEEEEEKEEKEERERHE 


TST56: SCOPE 


ali TEST, WITH EXPONENT OF THE RESULT = -129, FIU = 1, FID = 1 


LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC ,MODFOV 

1$: “WORD  20123,45676 “AC 

2$: “WORD 202 =F SRC 

3$: "WORD 123,45676 “FRACTIONAL RES. 

4$: “WORD 0,0 * INTEGER RES. 

S$: “WORD -1,-1 “ERROR FRACTIONAL RES. 

é$: “WORD -1,-1 “ERROR INTEGER RES. 

7$: 42000 “FPS BEFORE EXECUTION. 
142004 “FPS AFTER EXECUTION. 





CJKDCB-A_ KEF11I-A FP 


CJKDCB.P11 


a 
© 
bm § 
00 


~~ 
ooo 
=D 


DOOOCOOOOOOOS 


Ssesssseseeesesseseseeeeeqooeseeeeeooseeeeeoeoesees 


09 SIVA NAVIASSSSSRASSS AVIAN SEREE REESE Papas 


a a ee ee a ee ee ee pel eee 
elelelelelejejle) a) = 


oo 
W 


054540 
054542 
054544 
054546 


054546 
054546 


054606 
054610 


12-MAR 


054676 
000000 
000000 
000000 


000000 
177777 
177777 


054676 
125252 
000000 


000000 
125252 
000000 
000000 


tT PART 1 MACY11 30A(1052) 
-B0 15:26 756 


8$: 


9$: 
“UNDERFLOW EXP OF RESULT = -193, 
MYM : 


9$: 


12-MAR-80 
UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


LPERR 


PC ,a4MODF OV 
60052,125252 
602000 


15:31 


ca 


0,0 
52,125252 
0,0 


Mmonr 
A 
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sFEC 
zFEC INCORRECT, UNDERFiOW. 
sAC V 1 (2,3) <= ZERO, ST 126. 


FIU = 0, FID = 1 

>SET UP THE LOOP ON ERROR ADDRESS. 
sAC 

sFSRC 

sFRACTIONAL RES. 

Fk ge RES 


“FPS BEFORE EXECUTION. 
ZFS AFTER EXECUTION. 


THE RESULT = 128, FIV = 1, FID = 1 
:SET UP THE LOOP ON ERROR ADDRESS. 
AC 

3F SRC 

sFRACTIONAL RES. 


“EPS AFTER EXECUTION. 
‘BAD FEC ON OVERFLOW. 
:ST 520 TO STORE ZERO TWICE 

: INTO 162 

THE RESULT = 130, FIV = 0, FID = 1 
:SET UP THE LOOP ON ERROR ADDRESS. 


SEQ 0207 


CJKDCB-A KEF1I-A FP D 


CJKDCB.P11 


S890099908955055 
BSSRERVSLLSRORAE 


33 


meh ee ee ee a dd dd dd od od ot ot I 
SSSRSR 
SSRaRS 


0 
054670 
054672 


12-MAR~ 


000240 
000401 
104002 


_ 
R 
& 
—> 


ee 


ek 
88 


if 


anc PART 1 MACY11 30A(1052) 
15:26 756 


055272 


H 16 
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UNDER\OVER FLOW, USING MODF WITH TRAPS DISABLED, TEST 


in ian 
- ERROR 2 -ST 520 TO 162 INTO STORE ZERO TWICE. 
;OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128, RESULT NEGATIVE 
“AND FIV = 1, FID = 1 
mayeyeS - 
LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
JSR PC a#MODF OV 
1$: “WORD  160252,125252 =: AC 
2$: .WORD 60000,0 :FSRC 
3$: “WORD 0 “FRACTIONAL RES. 
4$: "WORD 100052,125252 INTEGER RES 
5$: “ WORD “ERROR FRACTIONAL RES. 
é$: "WORD 52,125252 “ERROR INTEGER RES. 
7$: 41000 “FPS BEFORE EXECUTION. 
141006 ZEPS AFTER EXECUTION. 
8$: ERROR 2 
BR 9$ 
ERROR 2 ST 517. BAD SIGN. 
9$: JMP aAMMMDONE ‘30 TO THE NEXT TEST. 


:THIS SUBROUTINE, MODFOV, IS CALLED TO SETUP THE 
[ OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK THE RESULTS. 
;1T IS CALLED THUS: 


; ACARG: .WORD X,X ;AC_OPERAND 
: FSRCARG:.WORD X,X ;FSRC_OPERAND 
; FRES: .WORD X,X FRACTIONAL RESULT 
; INTRES: .WORD X,X ; INTEGER RESULT 
: ERFRES: .WORD X,X ;ERROR FRACTION RESULT 
: ERINTRES:.WORD X,X sERROR INTEGER RESULT 
; FPSB:  .WORD X :FPS BEFORE EXECUTION 
; PSA: «WORD X sFPS AFTER EXECUTION 
FEC: «WORD X FEC 
; ERR1: ERROR xX “FEC ERROR 
BR CONT 
; ERR2: ERROR X : INTEGER ERROR 
; CONT : sRETURN ADDRESS 


THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE MODF 
“ INSTRUCT ION IS get THEN THE RESULTS ARE RETRIEVED. 
>THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
“THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
HEN F S COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
THEN MODFOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 
ON IS INCORRECT IT IS — WITH 


SES CONTROL T 
; RESULT 1S 
;NOT CORRECT THEN IT IS COMPARED W 

FAILURE. IF THIS DOEN'T MATCH THEN, THE ERROR IS ED HERE. 

-IF A MATCH IS MADE HOWEVER, MODFOV WILL RETURN CONTROL TO THE ERROR 


SEQ 020. 


——-— 


CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
CJKDCB.P11 12-MAR-80 15:26 T56 

10240 :CALL AT ERR2. 
10241 

1024 054676 012601 MODFO\~ . OV 
10243 054700 012700 000200 MOV 
10244 054 170100 LDFPS 
10245 054 191 MOV 
10246 054710 172410 LDD 
10247 054712 012700 052226 MOV 

0248 054716 172510 LDD 
10249 054720 016100 000030 MOV 
10250 054724 170100 LDFPS 
10251 Berge 012737 054742 001236 MOV 
\OS26 054 010100 MOV 
Sei 054736 700 000004 ADD 
10255 054742 171410 1$: MODF 
10256 

10257 054744 170204 STFPS 
10258 0547 170305 STST 
10259 054750 012700 000200 V 
10260 054754 170100 LDFPS 
10261 054756 2700 055252 MOV 
10262 054762 174010 STD 
10263 054764 012700 055262 MOV 
eee 054770 174110 STD 
10266 054772 010102 MOV 
10267 054774 010257 001240 MOV 
10268 055000 2702 ADD 
10269 055004 010237 001242 MOV 
10270 055010 702 ADD 
10271 055014 010237 001244 MOV 
10272 055020 702 ADD 
10273 055024 010237 001246 MOV 
10274 055030 012737 055252 001250 MOV 
10275 055036 012737 055262 001252 MOV 
10276 055044 010437 001254 MOV 
10277 055050 016137 000032 001256 MOV 
10278 055056 010537 001260 MOV 
ya 055062 016137 000034 001262 MOV 
10281 055070 012702 055252 MOV 
10 055074 026112 000010 CMP 
10283 055100 00102 BNE! 
10284 055102 026162 000012 000002 CMP 
is 055110 001021 BNE 
10287 055112 012702 055262 MOV 
10288 055116 026112 000014 CMP 
10289 055122 1016 BNE 
10290 055124 026162 000016 000002 CMP 
3.44 055132 001012 BNE 
10293 055134 026104 000032 CMP 
10 055140 001024 BNE 


nn nS LUE ENE 


I 16 
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12-MAR-80 


8 
UNDER\OVER FLOW. USING MODF WITH TRAPS DISABLED, TEST 


(SP)+,R1 -GET A POINTER TO THE ARGUMENTS 
#200, RO “SET FD MODE. 
R1,RO =SET UP ACO 
(RO) ,ACO 
pI =PUT A BACKROUND PATTERN INTO AC1. 
(RO) ,ACI 
30(R1), “RO -SET UP THE FPS. 
#1$. aASTMP2 
R1,RO =COMPUTE THE ADDRESS OF THE FSRC. 
#4°RO 
(RO) ,ACO sEXECUTE THE TEST INSTRUCTION. 
R4 -GET THE FPS. 
RS : FEC. 
#200, RO “SET FD MODE. 
MMOD DO «RO =GET THE FRACTIONAL RESULT. 
FDI, =GET THE INTEGER RESULT. 
AC1, (RO) 
R2 :SAVE THE DATA IN CASE OF ERROR. 
Re. akSTMP3 
R2. aASTMPG 
*R2 
R2. aASTMPS 
#4 ,R2 
R2. ahSTMP6 
#MODF DO, a#$TMP7 
#MODFD1 .a#'$TMP10 
R4, atSTMP11 
32(R1) ,a#$IMP12 
R5. a#STMP1 3 
34(R1) ,a#$TMP14 
#MODFDO,R2 =CHECK THE FRACTIONAL RESULT. 
10(R1), (R2) 
10 “BRANCH IF INCORRECT. 
12(R1) ,2(R2) 
10$ 
#MODFD1,R2 =CHECK THE INTEGER RESULT. 
14(R1), (R2) 
15$ “BRANCH IF INCORRECT. 
16(R1),2(R2) 
15$ 
32(R1) RS -CHECK THE FPS. 
20$ “BRANCH IF INCORRECT. 


SEQ 0203 | 


— 


CJKDCB<A KEF11-A FP DIAG, PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PACE 190 
CJKDCB.P11 12=MAR=80 15:26 156 UNDER\OVER FLOW. USING MODF WITH TRAPS DISABLED, TEST SEQ 0204 
10296 055142 026105 000034 CMP 34(R1).R5 :CHECK THE FEC. 
10297 055146 001030 BNE 25$ “BRANCH IF INCORRECT. 
44 055150 000161 000044 oS: JMP 44(R1) RETURN. 
10301 : FRACTIONAL ERROR. 
10302 055154 ; : THE ERROR WAS NOT ANTICIPATED SO 
10303 055154 104002 12$: ERROR 2 “REPORT THE INCORRECT FRACTION HERE. 
10306 055156 000774 BR 9$ 
10306 : INTEGER ERROR. 
10307 055160 026112 000024 15$: CMP 24(R1),(R2) :WAS THIS ERROR ANTICIPATED? 
10308 055164 001010 BNE 16$ “BRANCH IF NOT. 
10309 055166 026162 000026 000002 CMP 26(R1), 2(R2) 
10310 055174 001 BNE 16$ 
10311 055176 010102 MOV R1.R2 : THE ERROR WAS ANTICIAPTED SO RETURN 
10312 055200 062702 000042 ADD #42,R2 ;T0 THE ERROR REPORT IN THE CALLING 
10316 055204 000112 JMP (R2) 
10316 055206 16$: : THE ERROR WAS NOT ANTICIPATED SO REPORT 
10317 055206 104002 17$: ERROR 2 “THE INTEGER FAILURE HERE. 
10318 055210 000757 BR 9$ 
10319 
10320 -FPS INCORRECT. 
10321 055212 010437 001254 208: MOV R4,a4STMP11 -REPORT INCORRECT FPS. 
10322 055216 016137 000032 001256 MOV 32(R1) ,a#$TMP12 
10323 055224 10400 21$: ERROR 2 
10324 055226 000750 BR 
10325 
10326 “REPORT FEC ERROR. 
10327 055230 010537 001269 25$: MOV R5,a4STMP13 
10328 055234 016137 000054 001262 MOV 34(R1), aS TMP 1 
10329 055242 010102 MOV 
10330 055244 062702 000036 ADD #36,R2 
10331 055250 000112 JMP (R2) 
10333 055252 000000 000000 000000 MODFDO: .WORD 0,0,0.0 
10334 055260 000000 
10336 055262 000000 OC0000 000000 MODFD1: .wORD 0,0,0,0 
10337 055270 000000 
10339 055272 MYMDONE : 
0340 055272 104413 RSETUP :GO INITIALIZE THE FPS AND STACK; AND 
10341 “SEE IF THE USER HAS EXPRESSED 
10342 STHE DESIRE TO CHANGE THE SOF TWARE 
10343 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
10344 “THE USER TYPED CONTROL G?). 
10345 
10346 
10347 
10348 
10349 © I IIR EERE EERE RREKEEEKEEKEEEEEEKEEE ERE ARERR 
10350 : TEST 57 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
C 1 80 15:26 157 


JKDCB.P11 


055274 


055276 
0226/8 


0 
055502 


2-MAR~ 


055712 


000000 
177777 
000000 


177777 


* COND AS 
: «00D INSTUCT1ON AND CHECK THE RESULTS. 





K 16 
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UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


:*THIS i; A TEST OF THE MODD INSTRUCTION'S OVER FLOW AND UNDER 
; TIONS. UBROUT UP 


INE IS USED TO SET THE OPERANDS, EXECUTE THE 


LAaeketkenteennentinneneetensannnsnnanantnanncnannansenenenneees 


‘iter: 


SCOPE 


gala TEST WITH EXPONENT OF THE RESULT = ~129, FIU = 1, FID = 1 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 
7$: 


8$: 


9$: 
sUNDERFLOW TEST 
NNN2 : 


8$: 


9$: 
OVERFLOW TEST WITH EXPONENT OF THE RESULT = 


. WORD 


;SET UP THE LOOP ON ERROR ADDRESS. 


50b8 12 135082 ZAC 
12525 $5 125252 
+67 750.6. 0,0 =F SRC 
177,-1,71,71 :FRACTIONAL RES. 
0,0.0,0 : INTEGER RES. 
20252.125252  ; ERROR FRACTIONAL RES. 
125252, 125252 
.0,71,7 sERROR INTEGER RES. 
sFPS BEFORE EXECUTION. 
sEPS AFTER EXECUTION. 
2 “FEC INCORRECT ON UNDERFLOW. 
2 :ST 155 (BUT FD) 


WITH EXPONENT OF THE RESULT = -193, FIU = 0, FID = 1 
;SET UP THE LOOP ON ERROR ADDRESS. 


PC, a#MODDOV 
10000.0 :AC 
123456,0 
10200,0,0,0 sFSRC 
0,0,0,0 :FRACTIONAL RES. 
0.0.0.0 s INTEGER RES. 
0,0,0.0 sERROR FRACTIONAL RES. 
0,0 :ERROR INTEGER RES. 
123456,0 
:FPS BEFORE EXECUTION. 
“FPS AFTER EXECUTION. 
9$ 
2 :ST 047 (BUT FD). 


128, FIV = 1, FID = 





SEQ 0205 


CJKDCB-A KEF11-A FP DIAG PART 1 
12-MAR-80 1 


CJKDCB.P11 


R 
3B 


SERERRRRRREE 
WONAVISW—O 


eee 


® 
ARS 


WANNISSSS 


rs 
ra) 


104414 
004737 
06025 
12525 
060100 


15:26 


lilt: 


056320 


MACY11 30A(1052) 
157 


000000 
000000 
177777 
000000 


NNNS : 


1$: 
2$: 
3$: 
4$: 
5$: 
6$: 
7$: 


8$: 


9$: 


:OVERFLOW TEST WITH EXPONENT OF 
NANG : 


1$: 
2$: 
3$: 


: THIS SUBROUTINE, MODDOV, 


12-MAR-80 


15:31 


L 16 
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UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


. WORD 
. WORD 
41200 
141206 
10 
ERROR 
BR 
ERROR 


JMP 


cos52, 12 


601 $760°6.0-0 
0,0,0,0 


125952 
125252 


177,-1,-1,°1 


0.0.0.0 


177,-1 
125252,125252 


wru 
A 


2 


PC — 


60200,0 
125252.0 
60200,0,0,0 


0.0.0.0 
0,0,0,0 
0.0,0.0 


400,0 
125252,0 


:SET UP THE LOOP ON ERROR ADDRESS. 


AC 


sFSRC 


FRACTIONAL RES. 

; INTEGER RES. 

;ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
ZFS AFTER EXECUTION. 


“FEC BAD ON OVERFLOW. 
:ST 520 TO 162 INTO 163 (BUT FD). 


THE RESULT = 130, FIV = 0, FID = 1 
:SET UP THE LOOP ON ERROR ADDRESS. 
3AC 

:FSRC 


FRACTIONAL RES. 

; INTEGER RES. 

7ERROR FRACTIONAL RES. 
;ERROR INTEGER RES. 


FPS BEFORE EXECUTION. 
ZFS AFTER EXECUTION. 


- 


3ST 520 1. i6¢ INTO STORE ZERO TWICE. 
:GO TO NEXT TEST. 


IS CALLED TO SETUP 


THE 
OPERANDS, EXECUTE THE MODD INSTRUCTION AND CHECK THE RESULTS. 
-1T IS CALLED THUS: 


Se Be Be Be Be Be 


ACARG: 


. WORD 


F SRCARG: . WORD 
FR 


ERFRES: 


. WORD 


AC _OPERAND 
FSRC OPERAND 
FRACTIONAL RESULT 
; INTEGER RESULT 
ERROR FRACTION RESULT 


SEQ 0206 | 


| 
| 


B 
CJKDCB-A KEF11-A FP DIAG PART 1 MACY11? 30A(1052) 12-MAR-80 15:31 PAGE 19 
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C)KDCB.P11 12=MAR-80 15:26 157 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST SEQ 0207 
10464 : ERINTRES: WORD X,X,X,X tw INTEGER RESULT 
10465 : FPSB: .WORD xX FPS BEFORE EXECUTION 
10466 : FPSA: .WORD X “FPS AFTER EXECUTION 
10467 : ERR1: ERROR X “FRACTION ERROR 
10468 : BR CONT 

10469 : ERR2: ERROR X ; INTEGER ERROR 

10470 : CONT : “RETURN ADDRESS 
10472 THE OPERANDS ARE SET UP (USING ACO FOR THE Ac ARGUMENT). THE MODD 
10473 ; INSTRUCTION 1S EXECUTED. THEN THE RESULTS ARE RETRIEVED. 

10474 “THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
10475 “THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
10476 “THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
10477 “THEN MODDOV WILL RET O CONT. IF FPS WAS INCORR 

10478 IT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 
10479 “THE ANTICIPATED BAD FRACTION, ERFRES. IF THI SN’T MATCH 

10480 “THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 
10481 *FAILURE MATCHES THE TRUE RESULT THEN MODDOV PASSES CONTROL TO THE 
10482 “ERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 
10483 ZNOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 

10484 “FAILURE. IF THIS DOEN'T MATCH THEN THE ERROR IS REPORTED HERE. 
10485 “IF A MATCH IS MADE HOWEVER, MODDOV WILL RETURN CONTROL TO THE ERROR 
10486 : “CALL AT ERR2. 

10488 055712 012601 MODDOV: MOV (SP)+,R1 :GET A POINTER TO THE ARGUMENTS 
10489 055714 012700 000200 MOV #200,R0 “SET FD MODE. 

10490 055720 170100 LDFPS RO 

10491 055722 010100 MOV R1.RO :SET UP ACO 

10492 055724 172410 LOD (RO) ACO 

10493 055726 012700 052226 MOV #MODP1,RO :PUT A BACKROUND PATTERN INTO AC1. 
10494 055732 172510 LDD RO), ACT 

10495 055734 016100 000060 MOV 60(R1) RO =SET UP THE FPS. 

10496 055740 170100 LDFPS RO 

10497 055742 012737 055756 001236 MOV #1, @#STMP2 

10498 055750 010100 MOV R1.RO =COMPUTE THE ADDRESS OF THE FSRC. 
10499 055752 062700 000010 ADD #10,RO 

10501 055756 171410 1$: MODD (RO), ACO :EXECUTE THE TEST INSTRUCTION. 

19505 055760 170305 STST RS :GET THE FPS. 

10504 055762 170204 STFPS 4 “GET THE FPS. 

10505 055764 012700 000200 MOV #200,RO “SET FD MODE. 

10506 055770 170100 LDFPS 

10507 055772 012700 056300 MOV #MODDDO, RO :GET THE FRACTIONAL RESULT. 

10508 055776 174010 STD ACO, (ROS 

10509 056000 012700 056310 MOV #MODDD1 ,RO :GET THE INTEGER RESULT. 

10510 056004 174110 STD AC1, (ROS 

10512 056006 010102 MOV R1,R2 :SAVE THE DATA IN CASE OF ERROR. 
10513 056010 010237 001240 MOV R2. a4STMP3 

10514 056014 062702 000010 ADD #10,R2 

10515 056020 010237 001242 MOV R2, a#STMP4 

10516 056024 ‘ 062702 000010 ADD #10,R2 

10517 056030 010237 001244 MOV R2, a#STMPS 

10518 056034 062702 000010 ADD #10,R2 

10519 056040 010237 001246 MOV R2, aS TMP6 


1 
CUKDCB-A KEF11-A FP DIAG PART 1 MACY11 sai 1032) 12-MAR-80 15:51 « AGE 194 
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056052 
56060 


056162 
056166 


056170 


056174 


12-MAR- 


012737 


016137 


012702 
010103 
062703 


010103 
062 


026105 
001033 


000161 


104002 
000774 


012702 
010103 
062 


056310 


000030 
000004 


000074 


056310 


000050 
000004 


000072 


001254 


001250 
001252 


001256 
001262 


UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 


MOV,.  #MODDDO,a#STMP7 
MoV’ #MODDD1 ,a4$THP 10 
MOV R4. a4$STMP1 1 
MOV o2(RI) « aN$TMP12 
MOV MP13 
MOV 64(R1), OSTMP 4 
MOV #MODDDO ,R2 
MOV R1.R3 
ADD #20,R3 
MOV #4 RO 
2$: CMP (R2)+, (R3)+ 
BNE 10$ ' 
SOB RO,2$ 
MOV #MODDD1,R2 
MOV R1.R3 
ADD #30,R3 
MOV #4 RO 
3$: CMP (R2)+, (R3)+ 
BNE 15$ 
508 RO,3$ 
CMP 62(R1) RO 
BNE 20$ 
CMP 64(R1).R5 
BNE 25$ 
9$: JMP 74(R1) 


;FRACTIONAL ERROR. 
12$: ‘ERROR 2 
BR 9$ 


‘ 


: INTEGER ERROR. 

15$: | MOV #MODDD1,R2 
MOV R1.R3 
ADD #50.R3 
MOV #4 .R 

60$: CMP (Re) + , (R3)+ 

| BNE 17$ 

S08 RS,60$ 
MOV R1-R2 
ADD #72 ,R2 
JMP (R2) 

16$: 

17$: FRROR 2 
BR o$ 


-FPS INCORRECT. 
50$: MOV R4,a4$TMP11 


WAS THE INTEGER ERROR ANTICIPATED? 


REPORT INCORRECT FPS. 





:CHECK THE FRACTIONAL RESULT. 


;BRANCH IF INCORRECT. 


:CHECK THE INTEGER RESULT. 


;BRANCH IF INCORRECT. 


: CHECK THE FPS. 


;BRANCH IF INCORRECT. 
; CHECK 


RETURN. 


;THE ERROR WAS NOT ANTICIPATED SO 
:REPORT THE INCORRECT FRACTION HERE. 


THE FEC. 


;BRANCH IF NOT ANTICIPATED. 


;THE ERROR WAS ANTICIAPTED SO RETURN 
:T0 THE ERROR REPORT IN THE CALLING 


THE ERROR WAS NOT ANTICIPATED SO REPORT 
:THE INTEGER FAILURE HERE. ¥ 


SEQ 0208 


a ee i ey 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 3041052) 12-MAR=80 15: 31° E 195 

CJKDCB.P11 12-MAR=80 15:26 UNDER\OVER FLOW, USING MODD WITH TRAPS DISABLED, TEST 
10576 056244 016137 000062 001256 MOV 62(R1) ,a#STMP12 

10577 056252 104002 21$: ERROR 2 i 

10578 056254 000745 

10579 

10580 “REPORT FEC ERROR. 

10581 056256 010537 - 001260 55$: MOV R5, aa4STMP13 

10582 056262 016137 000064 001262 MOV 64(R1) ,aa$TMP14 

10583 056270 010102 MOV R1.R 

10584 056272 062702 000066 ADD pe R2 

10585 056276 000112 JMP (R25 

1088? 056300 000000 000000 000000 MODDDO: .wORD 0,0,0,0 

10588 056306 000000 

10590 056310 000000 000000 000000 MODDD1: .WwORD 0,0,0,0 

10591 056316 000000 

10592 

10593 056320 NNNDONE : 

10594 056320 104413 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
10595 “SEE IF THE USER HAS EXPRESSED 
10596 ; THE DESIRE TO CHANGE THE SOFTWARE 
10597 “VIRTUAL CONSOLE SWITCH REGISTER (HAS 
10598 “THE USER TYPED CONTROL G?). 

10599 

10600 

10601 an aR | Ul 
10602 =*TEST 60 MORE MICROCODES COVERAGE 

10603 eTHIs TEST WILL PROVIDE ADDITIONAL MICRO-CODE LOCATIONS COVERAGE 
10604 *IN FPP1 AND FPP2. 

10606 pereeeeeeererrrrererrerrerrrrretrr ttt tt itt ttrttrtiitioi ri los. 
10607 056322 000004 1ST60: SCOPE 

10608 056324 XX1: 

10609 4 104414 LPERR :SET UP THE LOOP ON ERROR ADDRESS. 
10610 056326 012737 056342 000244 XxT1: MOV AXT1A, a#244 

10611 056334 170227 000000 STFPS #0 

10612 056340 01 BR xT2 

10613 056342 104001 XT1A: ERROR 1 sSHOULD NOT TRAP 

10615 056344 012700 177777 XT2: MOV #-1,RO 

10616 056350 170127 000000 LDF #0 

10617 056354 170200 STFPS RO 

10618 056356 005700 TST RO 

10619 056360 001401 BEQ XT2A 

10620 056362 104001 ERROR 1 :FPS IS NOT ZEROED 

10621 056364 012700 057124 XT2A: MOV #XPATO,RO 

10622 056370 172440 LDF -(RO) ACO 

10623 056372 022700 057120 CMP aXPATO~4 RO 

10624 056376 001401 BEQ xT28 

10625 056400 104001 ERROR :RO WAS NOT DECR BY 4 

10626 056402 170 XT2B:  STFPS RO 

10627 056404 022700 000004 CMP #4,RO *CHECK IF F2 IS SET? 

10628 056410 001401 BEQ XT3 

10629 056412 104001 ERROR 1 

10631 056414 170127 000000 XT3: LDFPS #0 


SEQ 0209 


CJKDCB-A_KEF11-A FP D 


seinen 


CJKDCB.P11 


12-MAR~ 


od PART 1 MACY11 30A(1052) 
15:26 . T60 


012700 057124 


057120 


XT3A: 


170127 
012737 056476 000244 
170127 004000 


72 
12=MAR=80 13:31 PAGE! 196 
MORE MAROC ODES COVERAGE 
MOV wXPATO RO | 
STF (RO) 
CMP pS a RO 
BEQ KT3A 1:RO WAS NOT DECR BY 4 
RROR 1 : 
STFPS RO 
TST RO 
BFO KT4 
ERROR 
LDFPS #0 
V HKTGA, A244 


MO 
LDFPS #04000 :INTRPT ON UNDEFINED VARIABLE 
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CJKDCB.P11 


056702 
10697 -056706 
gh 


99 056716 
10700 056724 


172437 
Hp 4 


057124 
057154 


104004 
057114 
057114 
056546 
004000 
057154 
104014 


057114 
057114 


056624 
004000 
057124 
057154 
104004 


057114 
057114 


000000 
057164 
057214 
000002 


000100 
057164 


000276 
000002 057216 


000244 


090244 


057214 


XT4A: 


XT4B: 


XT5: 


XT5A: 


X7T5B: 


xTé: 


XT6A: 


XT6B: 


XT7: 


XT8: 


12=MAR=80 15:31 
MORE MICROCODES COVERAGE 
LDF a#XPATO,ACO 
DIVF  a@#XPAT3.ACO 
ERROR 1 
STFPS RO 
CMP #104004 ,RO 
BEQ XT4B 
ERROR 
MOV #XBUF ,RO 
STF ACO, (RO) 
TST a4 XBUF 
BEO XTS 
ERROR 1 

V AXTSA, 4244 
LDFPS 
LDCDF  a#XPAT3,ACO 

RR 1 
STFPS RO 
MP #104014,RO 

Q XT5B 
ERROR 
MOV #XBUF ,RO 
STF ACO, (RO) 
TST a4XBUF 
BEQ XT6 
ERROR 1 
LPERR 
MOV #XT6A, aH244 
LDFPS 006 
LDF @a4XPATO,ACO 
ADDF QYXPATS, “ACO 
STFPS RO 
CMP #104004 ,RO 
BEQ xT68 
ERROR 
MOV AXBUF ,RO 
STF ACO, (RO) 
TST aeXBUF 
BEQ XT7 
ERROR 2 
LDFPS #0 

DF @AXPAT4 ACO 
STCFI ACO, a@#XPATO 
MP #2. a#XPATO 

Q xT8 
ERROR 1 
LDFPS #100 
LDF BAXPATS ACO 
STCFI ACO,XPATO 
CMP #2. @AXPATO+2 
BEQ xT9 


- 
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;GET UNDEFINED VARIABLE, _0 
:MISSING INTERRUPT TO 2447 


;CHECK: FER,FIUV,FZ ARE SET? 


:ACO SHOULD REMAIN ZEROED - 


: INTRPT ON oo ns VARIBALE i" 
[GET UNDEFINED VARIABLE, _0 ) 
:MI SSING INTERRUPT TO 2447 J 


; CHECK: FER,FIUV,FN,FZ ARE sera“ 


z:ACO SHOULD BE ZEROED 


SET UP THE LOOP ON ERROR ADDRESS. 
; INTRPT ON UNDEFINED VARIBALE ‘ 


:MISSING INTERRUPT TO 244 
:CHECK: FER,FIUV,FZ ARE SET? 


:ACO SHOULD BE ZEROED 


;CHECK DATA 


sSET FL 


ee 


SEQ 0211 
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056726 


057106 
057110 
057112 


057114 


0 
057162 


12-MAR-80 15: 


104001 


000000 
057124 
057164 


000000 
057164 
057164 


000000 
057164 
057144 
057114 


040176 


057114 


000000 
000000 
000001 
000000 
000000 


ERROR 
:START OF FPP2 
XT9: LDFPS 


XT10: rs 


XT11: 1 Be 


XTT2:  LDEPS 


XT135:  LDFPS 


XPATO: }.WORD 
XPAT1: = .WORD 
XPAT2: { . WORD 
XPATS: 4 -WORD 


G 1 
12-MAR-80 15:31 PAGE 198 
MORE MICROCODES COVERAGE 


1 


@AXPATO,ACO 
_— ,ACO 


RO 
XT10 
2 


#0 
@AXPATS ,ACO 
_— 


oe RO 
xT Ti1 


#0 
AO XPATS ACO 
a 


R 
#4 RO 


sCHECK IF FZ IS SET? 
gite 


#0 
@AXPATS ,ACO 
@AXPAT2 ACO 


#XBUF , 
ACO, (RO) 


#040176, @AXBUF ;CHECK DATA 


#0 
@4XPATS ,ACO 
ee 


#4,R0 
x11 38 . 


XNEXT 


0,0.0.0 
0,0,0,0 
1,3,17,1 
40401,0,0,0 
100000 ,0,0,0 


SEQ 0212 


| 
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057222 
057224 


12-MAR~80 


040400 
000000 
000207 
000000 
077007 
000000 
000000 


000000 





15:26 

000000 
000000 
000000 


000000 
000000 
000000 


MACY11 30A(1052) 
T60 


XPAT4: 
XPATS: 
XPAT6: 
XPATO: 


XNEXT: 





. WORD 


H 1 
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MORE MICROCODES COVERAGE 


040400,0,0,0 
207,0,0,0 
77007,0,0,0 
0,0,0,0 


SEQ 0213 


as 





0 
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CJKDCB=A_ KEF11~-A FP to 536 J MACY11 a 12-MAR-80 15:31 


| 
CJKDCB.P11 12=-MAR= OF PASS ROUTINE SEQ 0214) 
10767 -SBTTL END OF PASS ROUTINE | 
10769 eA RM 
10770 « SINCREMENT THE PASS NUMBER ($PASS) 
10771 : *INDICATE END-OF -PROGRAM FTER ; PASS THRU THE PROGRAM 
10772 > x TYPE SEND PASS WK (WHERE XXKXX IS A DECIMAL NUMBER) 
10773 ‘«]JF SW12=1 INHIBIT TRACE TRAP 
10774 :*IF THERE IS A MONITOR 300 TO IT 
10775 “*]F THERE ISN'T JUMP TO LOOP 
10776 © ee RARER EERE EEEEREE 
10777 057224 sop: SCOPE 
10778 057226 005067 121650 CLR $TSTNM : ZERO THE TEST NUMBER 
10779 057232 005067 122044 CLR STIMES “ZERO THE NUMBER OF ITERATIONS 
10780 057236 005267 122062 INC $PASS ; INCREMENT THE PASS NUMBER 
10781 057242 042767 100000 122054 BIC #100000, $PASS :DON' T ALLOW A NEGATIVE PASS NUMBER 
10782 057250 005327 DEC (PC) + LOOP? 
10783 057252 1 $EOPCT: .WORD i PASS FIRST TIME (QV)!!! 
10784 057254 003045 BGT SDOAGN 
10785 057256 012737 MOV (PC)+,a(PC)+ : RESTORE COUNTER 
10786 057260 1 SENDCT: .WORD 1 
10787 057262 057252 SEOPCT 
10788 057264 104401 057437 TYPE SENDMG TYPE ‘END PASS #’ 
10789 057270 016746 122030 V $PASS ,-(SP) :SAVE PASS COUNT FOR TYPEOUT 
10790 057274 104405 TYPDS TYPE PASS COUNT IN DECIMAL 
10791 057276 104401 057434 TYPE »SENULL “T YPE A NULL CHARACTER STRING 
10792 057302 013700 000042 $GET42: MOV a742,RO *GET MONITOR ADDRESS 
10793 057306 001411 BEQ IN BRANCH IF NO MONITOR 
10794 057310 005046 CLR SP) ‘INSURE THE 'T’’ BIT IS CLEAR 
10795 057312 012746 057320 MOV #$CLR.T,-(SP) ; SETUP FOR AN RTI OR RTT 
10796 057316 42 BR TRN DO AN RTI OR RTT TO LOAD THE PSwW 
10797 “WITH A CLEARED ‘T’’ BIT 
10798 057320 SCLR.T: RESET “CLEAR THE WORLD 
10799 057322 004710 SENDAD: JSR PC, (RO) *GO TO THE MONITOR 
10800 057324 000240 NOP = SAVE ROOM 
10801 057326 000240 NOP 
10802 057330 000240 NOP “ACT11 
10803 057332 013737 000004 001232 DOAGIN: MOV ars ,aaSTMPO [SAVE CONTENTS OF LOCATION 4 
10804 057340 012737 057356 MOV $,an4 *SET UP INCASE OF TRAP 
10805 057346 012737 000001 164000 MOV . #1,a#164000 :NOTIFY MULTI-TESTER 
10806 057354 02 BR TRAP SO DON" T RESET STACK 
10807 057356 706 000004 1$: ADD #4, SP RESET STACK AFTER TRAP 
10808 013737. 001232 000004 28: MOV awsTopO.a#e §§ =RESTORE CONTENTS OF LOCATION 4 
10809 057370 104400 $DOAGN: TRAP :PUSH OLD PSW AND PC ON STACK 
10810 042716 000020 BIC “CLEAR THE ‘T'’ BIT 
10811 057376 032 010000 121534 BIT MeO T I> aswR ;RUN WITH TRACE TRAP? 
10812 057404 001005 BNE i$ H IF NO 
10813 057406 005167 000020 COM $TBIT 21S IT TIME FOR TRACE TRAP 
10814 057412 100402 BMI H IF NO 
10815 057414 052716 000020 BIS #20, (SP) “SET TRACE TRAP 
10816 057420 012746 057426 1$: MOV — #SLOOP,-(SP) = RETURN HERE FROM RTI _ 
10817 057424 SRTRN: RTI :RETURNE—TH IS IS CHANGED TO AN ‘RIT 
10818 “IF IT IS A LEGAL INSTRUCTION 
10819 957426 000137 $LOOP: JMP a(PC)+ “RETURN TO TESTING 
10820 057430 002160 SRTNAD: .WORD LOOP 
10821 057432 $TBIT: .WORD O :''T'' BIT STATE INDICATOR 
10822 057434 377 377 000 $ENULL: .BYTE <-1,-1,0 “NULL CHARACTER STRING 


——— | 
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CJUKDCB-A KEF11-A FP DIAG PART 1 MACY11 Al Se) 12-MAR~80 15:51 
CJKDCB.P11 12-MAR=80 15:26 F PASS ROUTINE 

10823 957437 015 0424612 042116 SENDMG: .ASCIZ <15><12>/END PASS #/ 

10824 057444 050040 051501 020125 

10825 057452 000043 

10826 ~EVEN 

Se .SBTTL SCOPE HANDLER ROUTINE 

10829 oe REE ERE ARERR EEE EERE RRR 
10830 SRTHIS ae i Oe CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
10831 :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
10832 :*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

10835 :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

10834 > *SW14= LOOP ON TEST 

10835 ;*SW11=1 INHIBIT ITERATIONS 

10836 > *SWO9=1 LOOP ON ERROR 

10837 > *SW08=1 LOOP ON TEST IN SWR<7:0> 

10838 > *CALL 

10839 * SCOPE ;;SCOPE=10T 

10840 

10841 057454 SSCOPE : 

10842 057454 104407 CKSWR - TEST FOR CHANGE IN SOFT-SWR - 

10843 057456 032777 040000 121454 1$: BIT #B1T14 ,aSWR ;;LOOP ON PRESENT TEST? 

10844 057464 001114 BNE SOV sYES IF Sw14=1 

10845 ;HMMRASTART OF CODE FOR THE XOR +g TERMAARM 

10846 057466 000416 SXTSTR: BR 6$ ;31F RUNNING ON THE a. TESTER CHANGE 
10847 3;THIS INSTRUCTION TO A ‘NOP’" (NOP=240) 
10848 057470 013746 000004 MOV Q@VERRVEC,-(SP) ;;SAVE CONTENTS OF THE ERROR VECTOR 
10849 057474 012737 057514 000004 MOV #5$ ,AMERRVEC ;:SET FOR TIME 

10850 057502 005737 177060 TST oi 72 TIME 2 

10851 057506 012657 MOV (SP)+,@MERRVEC ;;RESTORE T ERROR VECTOR 

10852 057512 3 BR $SVLAD +260 TO THE NEXT TEST 

10853 057514 022626 5$: CMP (SP)+, (SP)+ :CLEAR THE STACK AFTER A TIME OUT 
10854 057516 012637 000004 MOV (SP) + ,a#ERRVEC +} FRESTORE THE ERROR VECTOR 

10855 0575 23 BR 7$ OOP ON THE PRESENT TEST 

10856 057524 6$: ;MAAAREND OF CODE FOR THE KOR" TESTERMMMAR 

10857 057524 032777 000400 121406 BIT 481T08,aSwR OOP ON SPEC. TEST? 

10858 057532 001404 $ ‘TBR IF NO 

10859 057534 127767 121400 121340 @aSWR,STSTNM 370N THE RIGHT TEST? SWR<7 :0> 
10860 7542 001465 BEQ SOVER ;3BR_IF YES 

10861 7 105767 121333 2$: TSTB SERFLG 77HAS AN ERROR OCCURRED? 

10862 057550 1421 BEG :3BR IF 

10863 057552 126767 121337 121323 CMPB SERMAX.SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED? 
10864 057560 101015 BHI ;;BR IF NO 

10865 057562 2777 001000 121350 BIT #B1T09,aSWR ; LOOP ON ERROR? 

10866 057570 1404 BEQ :BR_IF NO 

10867 057572 016767 121312 121306 7S: MOV SLPERR , SLPADR SISET LOOP ADDRESS TO LAST SCOPE 
10868 057600 6 BR SOVER 

10869 057602 105067 121275 4$: CLRB SERFLG +s ZERO THE ERROR FLAG 

10870 057606 5067 121470 CLR STIMES :CLEAR THE NUMBER OF ITERATIONS TO MAKE 
10871 057612 15 1$ :ESCAPE TO THE NEXT TEST 

10872 057614 032777 004000 121316 3$: BIT #81711, aSwWR oF aes ITERATIONS? 

10873 057622 001011 BNE F YES 

10874 057624 005767 121474 TST $PASS sar FIRST at 

10875 057630 001406 BEQ 1$ ; INHI TERAT IONS 

10876 057632 005267 121246 INC $ICNT ‘ LINCREMENT ITERATION COUNT 

10877 7636 026767 121440 121240 CMP STIMES ,SICNT 7:CHECK THE NUMBER OF ITERATIONS MéDE 
10878 057644 002024 BGE SOVER :7;BR IF MORE ITERATION REQUIRED 


SEQ 0215 


eee a 
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CJKDCB.P11 12-MAR-80 15:26 SCOPE HANDLER ROUTINE SEQ 0216 
10879 057646 012767 000001 121250 1$: MOV #1,S$1CNT d SRE INITIALIZE THE ITERATION COUNTER 
10880 057654 016767 000052 121420 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
10881 057662 105267 121214 $SVLAD: INCB $ ;;COUNT TEST RS 

eat 057666 116767 121210 121426 MOVB STSTNM, sien’ 73SET TEST R IN APT MAILBOX 

1 057674 011667 121206 MOV (SP) ,SLPADR 7 7SAVE SCOPE LOOP ADDRESS 

10884 057700 011667 121204 MOV (SP) , SLPERR ;;SAVE ERROR LOOP ADDRESS 

10885 057 5067 121374 CLR SESCAPE :sCLEAR THE ESCAPE FROM ERROR ADDRESS 
10886 057710 112767 1 121177 MOVB #1, SERMAX ZONLY ALLOW ONE(1) ERROR ON NEXT TEST 
10887 057716 016777 121160 121216 SOVER: MOV $TSTNM,@D1SPLAY i :DISPLAY TEST NUMBER 

10888 057724 016716 121156 MOV SLPADR, (SP) ;;FUDGE RETURN ADDRESS 

10889 057730 000002 RTI :-FIXES PS , 

yaa 057732 000001 SMXCNT: 1 7 MAX. NUMBER OF ITERATIONS 

ys .SBTTL ERROR HANDLER ROUTINE 

10894 oie RARER RARER ERR ERE EKER RARER ERRREEEEE 
10895 vRTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
10896 ; *SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
10897 ;*AND GO TO ERTYPE ON ERROR 

10898 | :*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

10899 > *SW15=1 HAL 

10900 > *SW13=1 INHIBIT ERROR TYPEOUTS 

10901 :*SW10=1 BELL ON ERROR 

10902 *SWO9=1 LOOP ON ERROR 

10903 *CALL 

eo :* ERROR N ; ;ERROR=EMT AND N=ERROR ITEM NUMBER 

10906 057734 SERROR : 

10907 057734 104407 CKSWR iy FOR CHANGE IN SOFT-SWR 

10908 105267 121141 7$: INCB = SERFLG :3SET THE ERROR FLAG 

10909 057742 001775 Q 7$ 7;DON'T LET THE FLAG GO TO ZERO 
10910 057744 016777 121132 121170 MOV STSTNM,@DISPLAY DISPLAY TEST NUMBER AND ERROR FLAG 
10911 057752 032777 002000 121160 BIT #81T10,aSwWR ;:BELL ON ERROR? 

10912 057760 001402 BEQ 1$ :3NO - SKIP 

10913 057762 104401 001 LE yo TYPE , SBELL 22RING BELL 

10914 057766 005267 121120 1$: INC SERTTL co THE NUMBER OF E 

10915 057772 011667 121120 MOV (SP) ,SERRPC 33GET ADDRESS OF ERROR INSTRUCTION 
10916 057776 162767 pg 121112 SUB. #2, SERRPC 

10917 060004 117767 121106 121102 MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
10918 060012 032 020000 121120 BIT 13,8 SKIP TYPEOQUT IF SET 

10919 060020 001 BNE :?SKIP TYPEOUTS 

10920 060022 004767 002314 JSR PC ,ERTYPE 3:60 TO USER ERROR ROUTINE 

10921 060026 104401 001313 TYPE » SCRLF 

10922 060032 20$: 

10923 060032 122767 000001 121276 CMPB #APTENV,SENV ; ;RUNNING IN APT MODE 

10924 060040 001007 BNE 2$ 3NO,SKIP APT ERROR REPORT 

10925 060042 116767 121046 000004 MOVB © SITEMB,21$ :ISET ITEM NUMBER AS ERROR NUMBER 
10926 060050 004767 001126 JSR PC ,SATY4 ;;REPORT FATAL ERROR TO APT 

10927 060054 21$: ,.BYTE Q 

10928 060055 -BYTE 0 

10929 060056 000777 22$ BR 22$ ;;APT_ERROR LOOP 

10930 060060 005777 121054 2$: TST QSWR ; HALT ON ERROR 

10931 060064 100002 BPL 3$ SKIP IF CONTINUE 

10932 060066 000000 HALT T ON ERROR: 

10933 060070 104407 CKSWR ::TES! FOR CHANGE IN SOF T-SwWR 

10934 060072 032777 001000 121040 3$: BIT #B1T09,aSWR ;LOOP ON ERROR SWITCH SET? 


= 
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CJKDCB.P11 12-MAR=80 15:26 ERROR HANDLER ROUTINE SEQ 0217 
10935 060100 001402 BEQ 4$ :BR IF NO 
10936 060102 016716 121002 MOV S$LPERR, (SP) * “FUDGE RETURN FOR LOOPING 
10937 060106 005767 121172 4$: TST $ESCAPE : CHECK FOR AN ESCAPE ADDRESS 
10938 060112 001402 BEQ $ F NONE 
ys Sy fer dB 016716 121164 - MOV SESCAPE , (SP) 7 «FUDGE RETURN ADDRESS FOR ESCAPE 
10941 060120 022737 057322 000042 CMP H#SENDAD , 442 ::ACT=-11 AUTO=ACCEPT? 
10942 copies 001001 BNE 6$ : ;BRANCH IF NO 
10943 0601 HALT :sYES 
10944 060132 6$: 
Ly 060132 000002 RT] : ;RETURN 
Ls - wy sath SAVE AND RESTORE RO-R5 ROUTINES 
10949 RRR RRERERERRKHEREREEREREE RETR ER ETRE REE Ree 
10950 * SSAVE RO-R5 
10951 = *CALL: 
10952 ;* SAVREG 
b's <}, >*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 
9954 **® 
10955 : *TOP--- (+16) 
10956 re +2=-=-(+18) 
10957 se +4---R5 
10958 s% +6-—-RG 
10959 s% +8---R3 
10960 > *+10---R2 
10961 3*4+12---R1 
10962 *+14---R0 
10963 
10964 060134 SSAVREG 
10965 060134 01 V RO,-(SP) :;PUSH RO ON STACK 
10966 060136 010146 MOV R1,-(SP) : PUSH R1 ON ST 
10967 060140 010246 MOV R2,-(SP) ; ;PUSH Re ON STACK 
1 060142 010 MOV R3,-(SP) 3 PUSH ON STACK 
10969 144 010446 MOV R4,~ (SP) > PUSH R4& ON STACK 
10970 060146 010546 MOV 5.-( >: PUSH RS ON STACK 
10971 060150 01 000022 MOV 22(SP) ,~(SP) : :SAVE PS OF MAIN FLOW 
10972 060154 016646 000022 MOV 22(SP) ,-(SP) : :SAVE PC OF MAIN FLOW 
10973 060160 011 000022 MOV 22(SP) ,~(SP) s SAVE PS OF CALL 
10974 060164 016646 000022 22(SP), “=(SP) >:SAVE PC OF CALL 
10975 060170 2 RT] 
10976 
10977 > *RESTORE RO-R5 
10978 > *CALL: 
10979 ;* RESREG 
10980 060172 SRESREG: 
10981 060172 012666 000022 (SP)+,22(SP) tp 7h PC OF CALL 
1 060176 012666 000022 MOV ee Steps sRESTORE PS OF CALL 
10983 060202 012666 000022 MOV (SP)+,22(SP) :: TORE PC OF MAIN FLOW 
10984 012666 000022 V (SP)+,22(SP) 34 OF MAIN FLOW 
10985 060212 012605 MOV (SP)+, ::POP STACK INTO R5 
1 060214 012604 MOV (SP)+,R4 ::POP STACK INTO R4 
10987 060216 012603 MOV (SP)+,R3 >:POP STACK INTO R3 
1 060220 012602 MOV (SP)+,R2 es STACK INTO R2 
10989 060222 012601 MOV (SP)+,R1 STACK INTO R1 
10999 060224 012600 MOV (SP)+,RO : :POP STACK INTO RO 


CJKDCB-A_KEF11 
CJKDCB.P11 


by sad 
10993 


10995 


995989 


a eee 


88S9999889989899899999 
el ee ce eed ed ed eed ed et 
SSS SSS 8823888383888s 


BISLRKRELSE 


ee ee ee ee ee ee ee ee ees) 
— 


Oo°oeo 
BeaRe 


a ee ee ee ee ee ee ee ee TD dee 
fee > | oe | ae] oe] ee) 
RERRRREGIARAS 


em ee ee ee ee ee eh ed ed ed ed ed 


060226 000002 
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105767 
10000 


00 
016746 


105366 
002770 


120725 


000002 
000001 


000100 


~ 000004 
000672 


000040 


000056 
120566 


120556 
000001 
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121060 
121051 


121027 


12-MAR~80 15:31 
SAVE AND RESTORE RO-R5 ROUTINES 


RTI 
.SBTTL TYPE ROUTINE 


j 
"PAGE 204 


ee 


© te te REE EEE EEE RARE 


® RROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 fit 
R OF L_CHARACT 


“®THE ROUTINE WILL INSERT A NUMBER OF NUL ERS AFTER A LINE FEED. 
> *NOTE1: S$NULL CONTAINS THE CHARACTER r0 BE USED AS THE FILLER CHARACTER. 
> *NOTE2 SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
= *NOTE3 SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

*® 
:*CALL: 

**1) USING A TRAP INSTRUCTION 

a TYPE ,MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 

:* TYPE 

;* MESADR 

*® 

$TYPE: TSTB STPFLG :31S THERE A TERMINAL ? 
BPL 1$ ss IF ¥ 
HALT *:HALT HERE IF NO TERMINAL 
BR ; sLEAVE 
1$ MOV RO,-(SP) : SAVE 
MOV (SP) ,RO * GET ADDRESS OF ASCIZ STRING 
CMPB  #APTENV,SENV : ;RUNNING IN APT 
$ -:NO,GO CHECK FOR APT CONSOLE 
BITB #$#APTSPOOL.SENVM ;:SPOOL MESSAGE TO 
BEQ ::NO,GO CHECK FOR CONSOL 
MOV RO,61$ :: SETUP MESSAGE ADDRESS FOR APT 
JSR PC $ATY3 ::SPOOL MESSAGE TO APT 
61$: 3 0 7: MESSAGE ss 
62$: BITB $$ #APTCSUP,SENVM ;;APT C SUPPRESSED 
BNE 2s YES SKIP T OUT 
2$: MOVB (RO) +,-(SP) CHARAC TO BE TYPED ONTO STACK 
BNE 4$ "BR IF IT ISN'T THE TERMINATOR 
TST (SP)+ :e1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,R - :RESTORE RO 
3$: ADD #2, ch *: ADJUST RETURN PC 
RT] ; sRETURN 
4$: Cw WHT, (SP) * =BRANCH IF <HT> 
we #CRLF . (SP) ;;BRANCH IF NOT <CRLF> 
TST (SP)+ ::POP <CR><LF> EQUIV 
bin >: TYPE A CR AND LF 
CLRB § $CHARCNT ::CLEAR CHARACTER COUNT 
BR 2$ *:GET NEXT CHARAC TER 
5$: JSR PC,STYPEC ::GO0 TYPE THIS C 
6$: C(MPB sc. SF ILL. (SP) + >:7S IT TIME FOR FILLER CHARS. ? 
BNE 2$ ::1F NO GO GET NEXT 
MOV SNULL ,- (SP) “°GET # OF FILLER CHARS. NEEDED 
: ;AND “ NULL CHAR. 

7$: DECB 1(SP) *:DOES A NULL NEED TO BE TYPED? 

BLT 6$ *:BR IF NO=-GO POP THE NULL OFF OF STACK 


SEQ 0218 
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11047 060404 
11048 060410 
11049 060414 
11050 

11051 

2 

11055 060416 
11054 060422 
11055 060426 
11056 060434 
11057 060436 
11058 060440 
11059 060442 
11060 060446 
11061 060450 
Hs 060456 
11 060464 
11064 060466 
11065 060472 
11066 060474 
11067 060502 
11068 060504 
11069 060506 
11070 060510 
11071 

11072 

11073 

11076 

11075 

11076 

11077 

11078 

11079 

11080 

11081 

11082 

11083 

11084 

11085 

11086 

11087 

11088 

11089 

11090 

11091 

11092 

11095 

11094 

11095 

11096 

11097 

11098 060512 
11099 060516 
11100 060524 
11101 060530 
11102 060534 


004767 
105367 
000770 


112716 
004767 


000032 
000072 


000000 
000001 
000207 
000002 


MACY11 


000052 


120474 
000002 


000002 


000211 


30A(1052) 


: N 1 
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TYPE ROUTINE 


JSR PC,STYPEC — ::GO TYPE A NULL 
DECB $CHARCNT ; :D0 NOT COUNT AS A COUNT 
BR 7$ oe 
:HORIZONTAL TAB PROCESSOR 
8$: VB (SP) : REPLACE TAB WITH SPACE 
9$: JSR Fe ST¥PEC *: TYPE A SPACE 
BITB #7.$CHARCNT ; /BRANCH IF NOT AT 
BNE STOP 
TST (SP) + : top SPACE OFF STACK 
BR $ “GET NEXT CHARACTER 
$TYPEC: TSTB WAIT UNTIL PRINTER IS READY 
BPL $TYPEC 
MOVB 2(SP),a$TPB :LOAD CHAR TO BE TYPED INTO DATA REG. 
CHEB #CR,2(SP) HIS CHARACTER A CARRIAGE RETURN? 
CLRB § $CHARCNT : TYES=-CLEAR CHARACTER COUNT 
BR STYPEX 
1$: CMPB sé MILF, 2 (SP) *:7S CHARACTER A LINE FEED? 
BEQ STYPEX ; ;BRANCH IF YES 
INCB  ~— (PC) + *COUNT THE CHARACTER 
SCHARCNT:.WORD 0 «CHARACTER COUNT STORAGE 
STYPEX: RTS PC 


.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


 RRRRERARRRRE REE RA RAERR ERE EE RARER ERR ARAEREREE REAR AR TREES 
“THIS ROUTINE IS USED eo it A 16-B1T BINARY NUMBER TO A 6-DIGIT 


; *OCTAL (ASCII) NUMBER YPE IT. 
oe HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


te 

:* MOV NUM, -(SP) tester TO BE TYPED 

38 TYPOS 37 CALL FOR TYPEOQUT 

+t » ,BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
2a BYTE ™ :3M=1 OR 0 : 

>t i315 TYPE LEADING ZEROS 

;* ::0=SUPPRESS LEADING ZEROS 

** 


= *$TYPON----ENTER HERE 10 TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ssSTVPOS OR $TYPOC 


:* MOV NUM, -(SP) : NUMBER TO BE TYPED 

3 TY “*CALL FOR TYPEOUT 

:«STYPOC~—ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

“ MOV NUM, ~(SP) ‘NUMBER TO BE TYPED 

oe TYPOC << CALL FOR TYPEOUT 

$TYPOS: MOV a(SP) ,-(SP) ;;PICKUP_THE MODE 
MOVB _«-1(SP).. /SOFILL : s LOAD ZERO FILL SWITCH 
MOVB (SP) + DIGITS TO TYPE 
ADD #2, (SP) 5 OUST OE TURN ADDRESS 
BR $TYPON 


eR 


8 @ 
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11103 060536 112767 000001 000171 S$TYPOC: MOVB 4#1,$0FILL ::SET THE ZERO FILL SWITCH 

11104 060544 11¢76P 000006 000165 vB . E+1 ::SET FOR S1X(6) DIGITS 

11105 060552 112767 000005 000154 $TYPON: MOVB #5,$0CNT : SET THe ITERATION COUNT 

11106 010346 MOV R3,-(SP)  s7SAVE R 

11107 060562 010446 MOV R4,-(SP) ZZ SAVE R4 

11108 060564 010546 MOV R5,-(SP) : SAVE RS 

11109 060566 116704 000145 MOVB . SOMODE+1,R4 *:GET THE NUMBER OF DIGITS TO TYPE 
11110 060572 005404 NEG R4 | 

11111 060574 062704 000006 ADD #6 RS +: SUBTRACT IT FOR MAX. ALLOWED 
11112 060600 110467 000132 MOVB sR, -:SAVE IT FOR USE 

11113 116704 000125 MOVB  $OFILL.R *:GET THE ZERO FILL SWITCH 

11114 060610 016605 000012 MOV 12 ; : PICK I 

11115 060614 005003 CLR R3 | ;7CLEAR THE OUTPUT WORD 

11116 060616 006105 1$: ROL R5 | : ;ROTATE MSB INTO ‘C 

11117 060620 000404 BR 3$ si O MSB 

11118 060622 006105 2$: ROL R5 ::FORM THIS DIGIT 

11119 060624 006105 ROL R5 

11120 060626 006105 | 

11121 060630 010503 MOV R5,R3 

11122 060632 006103 3$: ROL | ::GET LSB OF THIS DIGIT 

11123 060634 105367 000076 DECB  S$OMODE 7: TYPE THIS DIGIT? 

11124 060640 100016 BPL 7$ } :;BR IF NO 

11125 060642 042703 177770 BIC #177770,R3 ::GET RID OF JUNK 

11126 060646 001002 BNE 4$ | ::TEST FOR O 

11127 005704 TST RS ::SUPPRESS THIS 0? 

11128 060652 001403 BEQ S$ | ::BR IF YES 

11129 060654 005204 4$: INC RG: ::DON'T SUPPRESS ANYMORE 0°S 
11130 060656 052703 000060 BIS #'O.R3 >:MAKE THIS DIGIT ASCII 

11131 052703 000040 S$: BIS #° -R3 ::MAKE ASCII IF NOT ALREADY 
11132 110367 000040 MOVB «R38 7:SAVE FOR TYPING 

11133 060672 104401 060732 TY >:GO TYPE THIS DIGIT 

11134 060676 105367 32 7$ DECB © $OCNT >:COUNT BY 

11135 003347 BGT ::BR IF MORE TO DO 

11136 060704 002402 BLT 7;BR IF 

11137 005204 INC RS >: INSURE LAST DIGIT ISN'T A BLANK 
11138 060710 000 RA ; ::G0 DO THE LAST DI 

11139 060712 012605 6$ MOV (SP)+,R5 > :RESTORE RS 

11140 060714 012604 MOV (SP) +,R4 + :RESTORE R4 

11141 060716 012603 MCV (SP)+,R3 : RESTORE R3 

11142 060720 016666 000002 000004 MOV 2(SP) ,4(SP) =:SET THE STACK FOR RETURNING 
11143 060726 012616 (SP)+, (SP) 

11144 060730 2 T 7 RETURN 

11145 060732 000 8$ BYTE 0 >:STORAGE FOR ASCII DIGIT 

11146 060733 000 BYTE 0 : = TERMINATOR FOR TYPE ROUTINE 
11147 060 000 BYTE 0 ::0CTAL DIGIT COUNTER 

11148 060735 000 SOFILL: .BYTE ::ZERO FILL SWITCH 

11149 000000 : 0 33 R OF DIGITS TO TYPE 

riist _SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

11153 FERRER RARER ERR ERERERA RA RAA AERC RARER AER AAA A AALS ERS 
11154 “*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
11155 “*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
11156 “ «NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
11157 “#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
11158 :*REPLACED WITH SPACES. 
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— 
_ 
=’ 
Ww 
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ee aad ed od SS — Ww 2 
SISALALRTSS 


ee ee eee ee ee ee ee ee ee eee 
RRAVSSSSVAARAVASS 


a eT Lee 


BELERRAVLESELE 


el we ee meee eh ee ee cre re ee ed eed eet Se ee ee ee eee 


oe a ee ee | 


MOMIMINAIAY 
— —) —d =) od 
WHO 


020200 
000020 


000055 
061154 
000040 


061144 


000001 
000060 
000040 


000070 


177777 


061154 
000002 


T 1 MACY11 30A(10 
6 CONVE 


000001 


177777 


177776 


000004 


:*CALL: 
tk 
:* 


$TYPDS: 


4$: 


5$: 


7$: 


8$: 


$DTBL: 


52) 


12-MAR-80 
RT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV 
TYPDS 


15:31 


NUM , = (SP) 


~(SP) 
#20200,-(SP) 
20(SP) +R5 


R5 . 
#*=,1(SP) 
RO 

#SDBLK ,R3 
#* .(R3)4 


R 
SDTBL (RO) ,R1 
R1,R5 


é 


1(SP) ,-1(R3) 

#°O.R2 

a2 nays 

(RO) + 

RO,410 

2$ 

8S 

RS,R2 

6$ 

(SP) + 

94 

~1(SP),-2(R3) 
R3) 


$DBLK 
5(SP) ,4(SP) 
(SP) +, (SP) 


= 
PAGE 


207 


;;PUT_THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 


ON STACK 

; R5 STACK 

7;SET BLANK SWITCH AND SIGN 
; HE INPUT NUMBER 


SETUP THE OUTPUT POINTER 
77SET THE FIRST CHARACTER TO A BLANK 
EAR THE BCD NUMBER 


33 THE CONSTANT 

: FORM THIS BCD DIGIT 

Ss F DONE 

:; INCREASE THE BCD DIGIT By 1 


:;ADD BACK THE CONSTANT 
>:CHECK IF BCD DIGIT=0 

: FALL THROUGH IF 

::STILL DOING LEADING 0°S? 
3; 2BR if YES 

::BR IF NO 

>: YES--SET THE SIGN 
::MAKE THE BCD DIGIT ASCII 


ACE IF NOT ALREADY A DIGIT 
~ y IN THE OUTPUT BUFFER 


JUS 
:7CHECK THE TABLE INDEX 
3;G0 DO THE NEXT DIGIT 
3:60 TO EXIT 


bs THE LSD 
::G0 CHANGE TO ASCII 
77WAS THE LSD THE FIRST NON-ZERO? 


3 IF NO 
>: YES--SET THE SIGN FOR TYPING 
:>:SET THE TERMINATOR 


> NOW TYPE 
> :ADJUST THE STACK 
: ;RETURN TO USER 


re 


SEQ 0221 


CJKDCB~A KEFII-A FP oi”, on 1 
CJKDCB.P11 12-MAR~80 15:26 
11215 061150 000144 

11216 061152 000012 

11217 061154 000004 

11218 

11219 

11220 =* 

ar 4 

11222 061164 112767 000001 
11223 061172 112767 000001 
11224 061200 000403 

11225 061202 112767 000001 
11226 061210 

11227 061210 01004 

11228 061212 010146 

11229 061214 105767 000206 
11230 061220 001450 

11231 061222 122767 000001 
11232 061230 001051 

11233 061232 132767 000100 
11234 061240 001425 

11235 061242 017600 

11236 061246 766 000002 
11237 061254 005767 120056 
11238 061260 001375 

11239 061262 010067 120044 
11240 061266 105720 

11241 061270 001376 

11242 061272 700 120034 
11243 061276 

11244 061 010067 120030 
11245 061 012767 

11246 061312 000413 

11247 961314 017667 

11248 061322 062766 

11249 061330 016746 116442 
11250 061334 004767 176670 
11251 061340 

11252 061342 | 
11253 061342 105767 000062 
11254 1346 001416 

11255 061350 005767 117762 
11256 061354 001413 

11257 061356 005767 117734 
11258 061362 001375 

11259 061364 017667 

11260 061372 062766 000002 
11261 061400 005267 117712 
11262 061404 105067 000020 
11263 061410 105067 000015 
11264 061414 105067 

11265 1429 012601 

11266 061422 012600 

11267 061424 000207 

11268 061426 000 

11269 061427 000 

11270 0614 000 


we 


MACY11 


000236 
000226 


000220 


120106 
120077 


000004 


120004 
000016 
000004 


117726 
000004 


30A(1052) 


12-MAR-80 


dD 2 
15:31 PAGE 


208 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SDBLK: 
. SBTTL 


1$: 


2$: 


118: 


12$: 


100. 
10. 
-BLKW 


4 


APT COMMUNICATIONS ROUTINE 


‘hoagie uments 7 platelet ogi a bine geal 


MOVB 


#1 ,SFFLG 
#1, $MFLG 
YC 


SAT 

#1, SFFLG 
RO,-(SP) 
R1,-(SP) 
SMF LG 


5$ 
#APTENV, SENV 


#APTSPOOL ,SENVM ; 


— 
——y 
+e 


ant SFATAL 
(SP) 


weer fo FC 
OOO 
ox, 
2 mos 


mornggaeegee 


3:TO REPORT FATAL ERROR 
3:70 TYPE A MESSAGE 


:3T0 ONLY REPORT FATAL ERROR 


: ¢PUSH RO ON STACK 
;PUSH R1 ra STACK 

33 D TYPE A MESSAGE? 
331F NOT: 


BR 
i OPERATING UNDER APT? 
**SHOULD SPOOL MESSAGES? 
IF NOT: AR 

: GET MESSAGE ADDR. 


RETURN ADDR. 
::SEE iF “BONE W/ LAST XMISSION? 
ee NOT: WAIT 

T ADDR ay MAILBOX 
«RIND END OF MESSAGE 


7 START OF MESSAGE 

:3GET Hy sey LNGTH IN WORDS 
LENGTH IN MAILBOX 

7: TELL APT TO TAKE MSG. 


:7PUT MSG ADDR IN JSR LINKAGE 
ADDRESS 

;PUSH 199776 ON STACK 
SICALL TYPE MACRO 


7;SHOULD REPORT FATAL ERROR? 
self NOT: B&R 

; = RUNNING UNDER APT? 

;;1F NOT: B&R 
: : FINISHED rad MESSAGE? 


SIGET NER 
-BUMP RETURN ADDR. 
TELL abt TO TAKE ERROR 
*:CLEAR FATAL FLAG 
:3CLEAR LOG FLAG 
FLAG 


MESSAGE 
: {POP STACK INTO R1 
; POP STACK INTO RO 


;RETURN 
« OMESSG. FLAG 
oe FLAG 
> FATAL FLAG 


SEQ 0222 


; 
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11271 
11272 
11273 
1274 


MIMINIUNIMVNIN 
BOB AINSI 


wel eed kd et etd ot od 3 
Poe 


ee ce hl ed ce ee ed et ed ed ed nd ot? dd od 
™m 
oo 
Vi 


SSBEVRIPISVISS TE 


SESSSRas 


WILAWIAIAIAWAAI A 
kek eh ee ek eh ed ed ed ed 
WONAULSWN © 


RRS 


ee ee ee ne tener 
ee eT eed 
CANES WIND 


td th ot 
WGN 
MM 


061432 
000200 


000001 
000100 
000040 


022767 
001074 
105777 
100071 


042716 


001022 
005766 


0001 76 
117476 
117472 
177600 
000007 
117442 


062041 
062046 
116464 
062057 


117414 


117410 
177600 


117500 


000001 


117334 


ci. 
12-MAR=80 15:31 PAGE 209 


COMMUNICATIONS ROUTINE 


APTCSUP= 040 
.SBTTL TTY INPUT ROUTINE 


SERRE EEE EERE REET ERA E ERA REAR AREER AES 


* ENABL LSB 


REE RRA AEE EEE AREER EEEREEREREEEREREEEEKEKE 

: SSOF TWARE SWITCH REGISTER CHANGE ROUTINE . 

-*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

= *SERVICE THE TEST FOR CHANGE IN N SOF TUARE SWITCH REGISTER TRAP CALL 

kWHEN OPERATING IN TTY FLAG MODE. 
$CKSUR: #SWREG, SWR :31S THE E Sor <sim SELECTED? 
Zz CHAR THERE? 

*IF NO, DON'T WAIT AROUND 
MOVB §a$TKB,~(SP) SAVE THE CHAR 
BIC etre, (SP) 


BNE 
TSTB a$TKS 
BPL 15$ 


Ah ge ae ge THE ASCII 

CMP #7, (SP)+ :IS IT A CONTROL G? 

BNE 1 ZNO RETURN TO USER 

CMPB $AUTOB 41 WE RUNNING IN AUTO-MODE? 

BEQ 15$ * BRANCH IF YES 

° TYPE -SCNTILG ‘oc THE CONTROL-G (“3G) 

SGTSWR: TYPE , S4SWR TYPE CURRENT CONTENTS 

MOV SWREG,- (SP) + ISAVE SWREG FOR TYPEOUT 

TYPOC 2>:GO TYPE--OCTAL ASCII(ALL DIGITS) 

TYPE . SNEW :;PROMPT FOR NEW SUR 
19$: CLR ~-(SP) s;CLEAR COUNTER 

CLR =-(SP) 77 THE NEW SwR 
7$: TSTB aSTKS : CHAR THERE? 

BPL 7$ ::1F NOT TRY AGAIN 

MOVB a$TkKB,~-(SP) s PICK 


UP CHAR 
BIC #*C177, (SP) ::MAKE IT 7-BIT ASCII! 


9$ CMP (SP) #25 i318 IT A CONTROL-U? 
10% *BRANCH IF NOT 
TYPE -SCNTLU 3 YES, ECHO CONTROL-U (“UD 
20S: #6,SP PREVIOUS INPUT 
BR 19$ *:LET'S TRY IT AGAIN 
10$: CMP (SP) ,#15 i315 IT A <CR>? 
16$ ; ;BRANCH IF NO 
TST 4(SP) 2s YES, : IT THE FIRST CHAR? 
BEQ 11$ s2 H IF YES 
MOV 2(SP) ,aSwWR 37SA ws 
11$: ADD #6,SP *:CLEAR UP STA 
14$: TYPE ,SCRLF s:ECHO <CR> Hay <LF> 





ew 


SEQ 0225 
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Uy 
N 


SERESSEERSS Se 


SERUNZSS 


NA WN Ww 
DAARAAAAA 
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RINISSSSSSFESES 


ek meek wee me meh eee meh wee mee ee mee eh eh meh eh me ee et mee ee ee aa ee Re eh eed Re mt me ed ed ed ed ee ed ee eh ce dh lt eld ml cl lh me «+ 
PREC 
Bo our 


ae ee ee | 


Agere 
012777 


117315 
000100 
176602 
000060 


000067 


000060 
000002 


000002 
177776 
001312 


000004 
117214 
117210 
177600 
000004 
117162 
117156 


177600 
000021 


PART 1 MACY11 30A 
15:26 TT 


000001 
117312 


000023 


000140 
000175 


— 000004 


000012 
020122 


Y INPUT ROUTINE 


CMPB SINTAG,41 
BNE 1 
MOV #100,a$TKS 
15$: RT] 
16$: JSR PC, STYPEC 
CMP (SP) , 460 
BLT 
CMP (SP) ,467 
BGT 
BIC #60, (SP)+ 
TST 2 (SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS =2(SP), (SP) 
BR 7$ 
18$: TYPE SQUES 
208 
.DSABL LSB 
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SEQ 0224 
: ;RE-ENABLE TTY KBD INTERRUPTS? 
; ;BRANCH IF NOT 
TTY KBD INTERRUPTS 


YES 
A 


::STRIP-OFF ASCII 

:;1S THIS THE FIRST CHAR 
: ;BRANCH IF YES 

::NO, SHIFT PRESENT 

#3 CHAR OVER TO MAKE 
::; ROOM FOR NEW ONE. 

: KEEP COUNT — 


REE ERARREREERAAEEERE ERA ERAREEAARAAAEEEEREAARREERERREREREEE 


*&THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s*CALL: 

* RDCHR 

:* RETURN HERE 

** 

SRDCHR: MOV (SP) .=(SP) 
MOV 4(SP) ;2(SP) 

1$ TSTB = aS TKS 
BPL 1$ 

a$TKB,4 (SP) 

BIC #°C<177>,4(SP) 
CMP 4(SP) #23 
BNE 

2$: TSTB asTKs 
BPL 
MO a$TKB,-(SP) 
BIC #*C177, (SP) 
CMP (SP)+,#21 
BNE 2$ 
BR 1$ 

3$: CMP 4(SP) ,#140 
BLT 
CMP 4(SP) #175 
BGT 4 
BIC #40,4(SP) 


4$: RT] 

S$CNTLU: .ASCIZ pil aly 
$CNILG: .ASCIZ /*G/<15><12> 
SMSWR : 


-ASCIZ <15><12>/SWR = 


:; INPUT A SINGLE CHARACTER FROM THE TTY 
> ;CHARACTER IS ON THE STACK 
::;WITH PARITY BIT STRIPPED OFF 


: SAVE THE PS 

as T FOR 

::A CHARACTEP 

::READ THE TTY 

::GET RID OF JUNK IF ANY 
::1S IT A CONTROL-S? 

; BRANCH IF NO 

:;WAIT FOR A CHARACTER 
::LOOP UNTIL ITS THERE 
::GET CHARACTER 

::MAKE IT 7-B1T ASCII 
::1S IT A CONTROL 

-:JF NOT DISCARD IT 
2° RE SUME 


/ 
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CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR~80 15:31 
12=MAR-80 15:26 INPUT ROUTINE SEQ 0225 
062057 040 047060 053505 $MNEW: .ASCIZ / NEW = 
062064 036440 000040 
.SBTTL TRAP DECODER 
SERRA AREER EERE EEE ERATE AE EAR RARER ROSS 
THIS ROUT INE WILL PICKUP THE LOWER BYTE OF THE ‘TRAP’’ INSTRUCTION 
“AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
**OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
=*GO TO THAT ROUTINE. 
062070 010046 $TRAP: MOV RO.-(SP) : SAV 
062072 016600 000002 MOV 2(SP), RO ;:GET TRAP ADDRESS 
062076 005740 TST (RO) sBACKUP BY 2 
0621 11 MOVB <RO) RO :IGET RIGHT BYTE OF TRAP 
062102 006300 ASL R : :POSITION FOR INDEXING 
062104 016000 062124 MOV STRPAD(RO),RO :: INDEX TO TABLE 
062110 000200 RTS RO +560 TO ROUTINE 
:: THIS IS USE TO HANDLE THE ‘'GETPRI‘’ MACRO 
062112 011646 STRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
062114 016666 000004 000002 MOV 4(SP5 ,2(SP) ;3MOVE THE PSW DOWN 
062122 RT] = :RESTORE THE PSW 
_SBTTL TRAP TABLE 
seTHts TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
Y THE "TRAP’' INSTRUCTION. 
: ROUT INE 
062124 062112 STRPAD: . 2 
062126 060230 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOQUT ROUTINE 
0621 060536 $TYPOC ;;CALL=TYPOC RAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
062132 060512 STYPOS ;;CALL=TYPOS TRAP+3( 104405) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
0621 060552 $TYPON ::CALL=TYPON  TRAP*4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
062136 060740 STYPDS - CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
062140 061502 SGTSWR ::CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
062142 061432 5 $CKSWR ; = CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SwR 
062144 061714 CHR =ROC TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
0621 0601 SSAVREG «  CALL=SAVREG TRAP+11(104411) SAVE RO-R5S ROUTINE 
062150 17 ESREG ::CALL=RESREG TRAP+12(1 1) RESTORE RO-RS ROUTINE 
062152 062620 [RSET =: CALL=RSETUP © TRAP#13( 104413) ROUTINE TO RESET STACK AND FPS 
062154 062612 "LPER ::CALL=LPERR § TRAP+14(104414) ROUTINE TO SET LOOP ON ERROR ADDRESS 
32 $TERM=.-$TRPAD 
.SBTTL POWER DOWN AND UP ROUTINES 
FARRER ERATE EAA RA AERA AA AR AAA AAA ALLER A ALEK ER ES 
POWER DOWN ROUTINE 
062156 012737 062334 000024 {POWER MOV WSILLUP .@#PWRVEC :;SET FOR FAST UP 
062164 012737 000340 000026 MOV #340, aAPWRVEC+2 - “BRIO :? 


2 
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CJKDCB.P11 12-MAR-80 15:26 DOWN AND UP ROUT! SEQ 0226 
11439 062172 10046 MOV RO,~(SP) : PUSH RO ON STACK 

11440 062174 010146 MOV R1,~(SP) ::PUSH R1 ON STACK 

11441 062176 010246 MOV R2,~-(SP) : PUSH R2 ON STACK 

11442 062 1034 MOV R35,- (SP) 3 PUSH ON STACK 

11443 062202 0446 MOV R4,~(SP) $ SH R4& ON STACK 

11444 062 010546 MOV R5,~-(SP) ::PUSH RS ON STACK 

11445 062 017746 116726 MOV aSwR ,- (SP) ‘3 SH @SWR ON STACK 

11446 062212 0667 000122 MOV SP, $SAVR6 VE SP 

11447 062216 012737 062230 000024 MOV #SPWRUP, QAPWRVEC +: SET UP VECTOR 

11448 062224 000000 HALT 

6 = 062226 000776 BR 72 3 7HANG UP 

11451 errr rrrrrrrerrrrrrrrrrrrrTirT TT TTT Titi titi iii itt etre ae 
11452 POWER UP ROUTINE 

11453 062230 012737 062334 000024 $PWRUP: MOV WSILLUP ,@MPWRVEC ;;SET FOR FAST DOWN 

11454 0622 6706 000076 MOV SSAVR6,SP T SP 

11455 062242 005067 000072 CLR SSAVR6 «WAIT LOOP FOR THE TTY 

11456 0622 005267 000066 1$: INC SSAVR6 + sWAIT FOR THE INC 

11457 062252 001375 BNE 1$ WORD 

11458 062254 012677 116660 ; MOY (SP) +, aSWR : POP STACK INTO @SWR 

11459 062260 012605 MOV (SP)+,R5 :POP STACK INTO R5 

11460 062262 012604 MOV (SP) +,R4 > =POP STACK INTO R4 

11461 062264 012603 MOV (SP)+,R se STACK INTO R3 

11462 062266 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

11463 062270 012601 MOV (SP)+,R1 ; <POP TACK INTO RI 

11464 062272 12600 MOV (SP)+,RO :POP STACK INTO RO 

11465 062274 012737 062156 000024 MOV /aAPWRVEC -SET UP THE POWER DOWN VECTOR 
11466 062302 012737 000340 000026 MOV #340 QNPURVEC+2 ; :PRIO:7 

11467 062310 104401 TYPE es THE POWER FAILURE 

11468 062312 062670 SPWRMG: .WORD #POWERM FAIL MESSAGE POINTER 

11469 062314 012716 MOV - (PC) +, (SP) RESTART AT START 

11470 062316 1466 SPWRAD: .WORD START ;RESTAR T_ADDRESS 

11471 062320 042766 20 000002 BIC #20,2(SP) . CLEAR T BIT 

11472 062 005067 175100 CLR STBIT >: CLEAR THE ‘‘T’’ BIT FLAG 

11473 062332 2 RTI 

11474 062334 SILLUP: HALT +3 THE POWER UP SEQUENCE WAS STARTED 
11475 062336 000776 BR -~2 BEFORE THE POWER DOWN WAS COMPLETE 
ps 062340 SSAVR6: 0 * PUT THE SP HERE ' 

11478 .SBTTL ERROR TYPE OUT ROUTINE 

11479 REAERERRRERRRER ERR ERAERER AAR RR AARAARARAAAARERA AANA AAA ATA eS 
11480 SKRREARERRERE RR ERERAATRERERERAERARARAAAAATAAAARAAARR AAA R AAAS 
11481 STHIS ROUTINE IS CALLED - TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
11482 *IN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
11483 * #0R BY FIRST y AEG. SITEME EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
11484 : *OUT AND THEN EXECUT 

ee tad JSR PC, “ERTYPE 

11487 062342 104401 ERTYPE: TYPE : TYPE A CRLF 

11488 062344 00131 . WORD SCRLF 

11489 062 113737 001102 0u1232 MOVB avSTSTNM, a4STMPO 

11490 062354 042737 177400 001232 BIC #177400, avs TMPO 

11491 062 013737 001116 001234 MOV aNSERRPC, avsTMP1 sGET PC OF CALL 
Mp 062370 010046 MOV RO,-(SP) :SAVE RO 

11494 062372 113700 001114 MOVB a4$] TEMB,RO :GET THE ITEM NUMBER. 
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CJKDCB.P11 12=MAR-80 15:26 TYPE OUT ROUTINE SEQ 0227 
11495 062376 042700 177400 BIC #177400,R0 

11496 062402 001007 BN MUL T 

By 2 062404 104401 062456 PCTYP: TYPE ,EMSG 

11499 062410 013746 001116 MOV @FSERRPC ,- (SP) :1F ZERO THEN JUST 
11500 062414 104402 TYPOC sPRINI THE PC 

11501 062416 ARTA 062452 JMP aWVERTS 

11502 062422 005 MULT DEC RO OTHERWISE MULT RO BY 2 TO 
11503 :GET ERROR MESSAGE POINTER 
11504 062424 006300 ASL RO = 
BF 0624 062700 001442 ADD #SERRTB,RO 

11507 062432 011037 062442 MOV (RO) ,aa2$ :PICK UP THE ADDRESS 
11508 062436 001405 BEQ ERTS :OF THE EM, ERROR MESSAGE 
11509 062440 104401 TYPE 

11510 062442 2$: .WORD 0 

11511 062444 104401 TYPE 

11512 062 001313 .WORD $CRLF 

bs 2, 062450 000755 PCTYP 

11515 062452 012600 ERTS: MOV (SP)+,RO sRESTORE RO. 

one 062454 000207 RTS PC 7AND RETURN. 

11518 062456 0461 040517 044524 EMSG: .ASCIZ /FLOATING POINT ERROR, STOPPED AT PC= / 

11519 062 043516 050040 044517 ' 

11520 062472 052116 042440 051122 

11521 062 051117 020054 052125 

11522 0625 050117 042520 0201 

11523 062514 052101 050040 036503 

11524 062522 

11525 EVEN 

11526 

11527 

11528 

11529 .SBTTL FPP SPURIOUS TRAP TO 244 HANDLER 

11530 5 RRRRAARAAAARERAEAAEAAAAAEAAAAAARARENAAAAAAAERERAA ALAA RARE ESS 
11531 F RRRRARA ARERR AERA RESERARARAAAAAAERTERRAAAA ARERR AANA TEATS SSS 
11532 =*THIS ROUTINE HANDLES UNEXPECTED TRAPS TO THE FPP TRAP VECTOR AT 244. 
11533 **THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
He :*THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 

;* 

11536 062524 011637 001236 FPSPUR: MOV (SP) .a#STMP2 sSAVE PC OF TRAP. 

11537 0625 022626 CMP (SP)+,(SP)+ :RESTORE SP. 

11538 062532 170200 STFPS RO :GET FPS 

11539 062534 010037 001240 ; MOV RO, a#STMP3 

11540 062540 170500 STST RO 3GET FEC 

11541 062542 010037 001242 MOV RO, a*STMP4 

11542 062546 104001 1$: ERROR 1 :MOST LIKELY BAD FP? CHIP 

11543 062550 1044135 RSE TUP :GO INITIALIZE THE FPS AND STACK; AND 
11544 :SEE IF THE USER HAS E SSED 

11545 THE DESIRE TO CHANGE THE SOFTWARE 
11546 VIRTUAL CONSOLE SWITCH REGISTER (HAS 
11547 : >THE USER TYPED CONTROL G?). 

AE 062552 000137 057224 ; JMP a4SEOP 

11550 


CJKDCB=A KEF11=-A FP DIAG PART 1 MACY11 SOA Os. 
12=MAR=80 15:26 CPU 


CJKDCB.P11 
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PARA AA Atv ¢ 


Vi 
Oo 


BRB NSN ON ISS UR R OES 


ee ee ee ee de eee eee 
% 


ee ee ee ee ee ee eS LL. eT 


BSSSBseEe 


a ce eee eee eee ee ee ee ee ee ae) 
re ee es 


SORES ESLRRE 


062574 


062612 
062616 


062620 


062626 
062630 


011637 
022626 
104004 


104413 


000137 
011637 
022626 
104002 
104413 


000137 


011637 
000002 


023727 


001001 
104407 


001236 


057224 


001236 


057224 


001110 


001140 


177570 
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.SBTTL CPU SPURIOUS TRAP TO 4 HANDLER 


SGU GI SAO ISISIISISIIISIISIIIEIIOIIDIDIDIDIDIDISISIIDIDIIOIIDIDOIIOIIOIIIDTO OTT ASAI AA 
wrrweerTrrTTTTTTTTTITT ITT Ti titi iii iii iii iter 


‘ATHIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 4. 


2 
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< 
CPSPUR: MOV (SP) ,a#STMP2 SAVE PC OF TRAP. 
CMP (SP)+, (SP)+ 
1$: ERROR 4 
RSETUP +60 INITIALIZE THE FPS AND STACK; AND 
IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH — (HAS 
THE USER TYPED CONTROL G?) 
JMP a¥SEOP 


.SBTTL CPU SPURIOUS TRAP TO 10 HANDLER 


SERRE REE EERE RARE RRA R RARER ERAT OD 
{RRRRARARRERA ERA AEE RARER AARNE AARERA RAR R RAR RRER AEE A EERE SS 


; #THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 


tPTWO: MOV (SP) ,a#STMP2 :SAVE PC OF TRAP. 

CMP (SP)+, (SP)+ 
1$: ERROR 2 

RSETUP ‘e INITIALIZE THE FPS AND STACK; AND 

IF THE USER HAS EXPRESSED 
“THE DESIRE TO CHANGE THE SOF TWARE 
“VIRTUAL CONSOLE SWITCH _—, (HAS 
+ THE USER TYPED CONTROL G?) 
JMP afSEOP 


.SBTTL SET LOOP ON ERROR ADDRESS ROUTINE 


FREER ARAAEREAERARAREEEERERA TREK AAAAARARRA RANA NATAL ALARA SAE SSS 
= Hee AReRARAERAAERAAHRERAREERAARRRAAAAA TAA eAARAAAAAA ATS TAL eA ees 


+t 
“LPER: MOV (SP) ,a#SLPERR 
RTI 


.SBTTL FLAG RESET AND CONSOLE TEST ROUTINE 


j RReRREKER EER AARRRATERATAAAERARARAAAAAERReAAAAAAeAeAAeeeTTeTeeee 
< ce eee eee AAAARAAAAAAAATETEAAATAAK ARENT RRAKAAeATKAreeReeeeeeeeres 


“STHIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
; *RESET THE STACK, CLEAR THE FPS SEE' IF THE USER HAS TYPED 

* CONTROL G ON THE TERMINAL. IF USER TYPED CONTROL G AND 
! «THERE IS NO PHYSICAL CONSOLE Swi TCH gi gk THEN THE CONTENTS 
;*OF THE SOFTWARE SWITCH pray tae WILL BE TYPED IN OCTAL ON THE 
; *TELETYPE AND THE USER CAN MODIFY IT. 





"RSET: CMP a#*SWR #177570 SEE IF THERE IS A PHYSICAL 
: CONSOLE SWITCH REGISTER. 
BNE 1$ : NO. 
CKSWR “OTHERWISE TYPE THE CONTENTS 





rs 
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AH THE PROGRAM VIRTUAL op Ae REGISTER 


=" 
=" 
S 

~ 


11608 {AND GIVE 1 THE USER A CHANC 
11610 632 012737 062524 000244 18: MOV #FPSPUR,@#FPVECT 

11611 640 012737 062556 000004 MOV #CPSPUR, af RRVECT 

11612 062646 012737 062574 000010 MOV #CPTWO 

11613 062654 011600 MOV (SP) . " : SAVE RETURN ADDRESS. 

11614 062656 012706 001100 MOV #STACK, SP *RESET THE STACK POINTER. 
11615 005004 R4 “CLEAR THE FPS. 

11616 170104 LDFPS 4 

11617 062666 000110 J (RO) * RETURN. 

11619 .NLIST BEX 


. SPECIAL MESSAGES: 
062670 a” 053517 051105 POWERM: .ASCIZ  ideadaibtacame FAILURE. PROGRAM RESTARTING. *<CRLF> 


062735 } NULL: .BYTE 
062736 000011 STAB: -ASCIZ <TAB> 
062740 020040 000 SPACE: .ASCIZ ° ' 
ERROR MESSAGES: 
062743 120 047522 040502 EMI: -ASCIZ /PROBABLY BAD FP1 CHIP/ 
062771 120 047522 040502 EM: .ASCIZ /PROBABLY BAD HYBRID FP CHIP/ 
063025 120 047522 040502 EMS: -ASCIZ /PROBABLY BAD MMU CHIP/ 
063053 120 047522 040502 EM4: -ASCIZ /PROBABLY BAD MMU OR HYBRID FP CHIPS/ 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
80 15:26 CROSS REFERENCE 


CJKDCB.P11 
AAADON 040746 
AAA) 037744 
AAAIO 040362 
AAA11 040420 
AAA12 040456 
AAAI3S 040514 
AAA2 040002 
AAAS 040040 
AAAS 040076 
AAAS 040134 
AAA6 040172 
AAA? 0230 
AAAB 0266 
AAAQ 040324 
AADATO 023040 
AADONE 023140 
AAERRO 022472 
AAERR1 2 
AAERR2 022614 
AAERRS 022650 
AAERRS 

AAERRS 022714 
AAERR6 022750 
AAERR7? 02 
AAER10 022 
AAPATO 023050 
AAPAT1 02 
AAPAT2 023070 
AAPATS 023100 
AAPATS4 023110 
AAPATS 0231 
AAPAT6 31 
AA 022112 
AA10 2226 
AAT1 022 
AAI2Z 022260 
AA13 022276 
AA14 022316 
AA15 022336 
AA16 022344 
AA17 022350 
AA2 022150 
AA20 022354 
AA21 022356 
AA2Z2 022410 
AA2S 022412 
AALS 022432 
AA2S 022452 
AA26 2460 
AA27 2464 
AAS 022152 
AAG 22170 
AAS 022210 
AAG 022216 
AA? 022224 


6994 
& 


70814 


42404 
4242m 


4257 
4345 


12-MAR~80 
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4349 
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4296 
4363 


4353 
4360 


43884 
45928 


2 
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4303 
4369 


4359 
43844 


4341 
4375 


4365 


4347 
44084 


4371 


4355 


43804 


4361 


4366 


SEQ 0250 


4372 


Eee ies 
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C)KDCB.P11 —- 12-MAR=80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEO 0231 
SE = 000000 mn Sy 
ACDW1 = 000000 271314 
ACDW2 = 000000 271-315 
ACPUOP= 000000 271386 
ADDWO = 000000 271 16 
ADDWi = 000000 2712317 
ADDW10= 000000 271 «(326 
ADDw11= 000000 ee 
ADDW12= 000000 271 «328 
ADDW13= 000000 271 «329 
ADDW14= 000000 271 +~=—-330 
ADDW15= 000000 nm | oS 
ADDw2 = 000000 271 ~—s«318 
ADDW3 = 000000 371 = 319 
ADD = 000000 271 ~~ 320 
ADDWS = 000000 571 321 
ADDwW = 000000 271 ~~ 322 
ADDw? = 000000 "> 
ADDWS = 000000 271 «32h 
ADDW9 = 000000 271 «(325 
ADEVCT= 000000 ae a3 
ADEVM = 000000 ae S 
ADONE 002444 524 532 545 558  S64# 
AENV = 000000 271 (Be 
AENVM = 000000 271283 
AERR1 002336 499 5284 
AERR2 002350 : 5354 
AERR3S 002402 501 4s (548 
AFATAL= 000000 OOM 
AMADR1= 000000 271 299 
AMADR2= 000000 271 «~—s«303 
AMADR3= 000000 271 + ~©=—-306 
AMADR4= 000000 271 «3-309 
AMAMS1= 000000 271 293 
AMAMS2= 000000 271 ~—s-301 
AMAMS3= 000000 271 ~—-304 
AMAMS4= 000000 271 ~—«- 307 
AMSGAD= 000000 271 ~=—«279 
AMSGLG= 000000 271 + ~—«-280 
AMSGTY= 000000 271 ~—s(73 
= 000000 271 
AMTYP2= 000000 271 ~=—«-302 
AMTYP3= 000000 271 ~—-305 
YP4= 000000 271 
APASS = 000000 271 ~—s(6 
IOR= 000000 27 
APTCSU= 000040 11023 112754 
APTENV= 000001 10923. 11016 11231 112734 
APTSIZ= 000200 446 112724 
AP 000100 11018 11233 112744 
= 000000 271 +~—s 2B 
ATESTN= 000000 ye 
= 000000 271 ~=—s« 278 
AUSWR = 000000 271 «= 285 
AVECT1= 900000 271 ~~ ~—-310 
AVECT2= 000000 ae. ae 
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CJKDCB.P11  12=MAR=80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0232 

Al 002252 S05# 533 

Al} 002252 506M «4535 548 

Al2 902266 sila 037 550 

A2 002326 519 5208 
041450 7186 = 720 7215 7223.—Ct—si«a72386s«C72GS 

BBBER1 041224 2107 7190 

BBBER2 041310 7120714 7180 72104 

BBBERS 041336 7124 7147 7184 72184 

BBBER4 041364 7165 72278 

BBBP1 041430 7109 «7111S «7135. 2s 7160—Ss 72384 

paBP2 041440 7133 7156S 7240 

BBBO 040754 71034 

BBB1 041010 7108 4309-71134 

BBB2 041036 71278 

BBB3 041066 7132271364 

Bae, 041114 71504 , 

BeB85 041152 7155 1624 7167 

BBB6 041160 7159 «= 71678 

BBDATO 026102 4746 4769 4775 4800 4823 4829 4852 4874 4906 4915 4921 4930  4939# 
026232 4884 4893 4902 4908 4917 4923 4932 49834 

BBERO 025570 4738 4757 4786 4862 4883 48854 

BBER1 4752 49030 

BBER10 025610 4810 4840 48944 

BBER11 49054 4911 4935 4938 

BBER2 4780 4 

BBERS 025704 4782 49120 

BBER4 025740 4806 49184 

BBER4O 025754 4920# 4926 

BBERS 025774 834 49244 

BBER6 026012 4836 49274 

BBER7 026046 4858 4933 

BBERB 026064 4880 49 

BBPATO 026112 4791 4802 4918 4919 49430 

BBPAT1 026122 4743 «6766 i«iG796Hsi«BT.-—s«4 B49 GB77—ss 4905 4914. = 4920 4929 4934 49478 

BBPAT2 026132 4741 4768 4903 4904 49514 

BBPAT3 026142 4815 4830 4924 4927 4955# 

BBPAT4 026152 4764 4776 4909 4912  4959# 

BBPATS 026162 4847 4933 4 

BBPAT6 026172 4869 4876 4936 4937 

BBP10 026212 4771 4910 4913 4975# 

BBP11 026222 4854 49 

BBP7 026202 4825 4925 4928 4971# 

BB1 024732 47 

BB810 025106 47734 4783 

8811 025126 47784 4781 

BB812 «025136 4779 47814 

8813 025144 4774 4783# 

B814 025156 4785 47884 

8815 25 4790 4797# 

8816 = 025232 48044 4807 

8B17 025242 4805 48074 

BB2 24770 4739 4 744# 

BB20 025254 809 48124 

BB21 025304 814 4820# 

BB22 025330 48274 4837 

BB23 «025350 48324 4835 
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B24 025360 4833 48354 
BB25 025366 4828 48378 
BB26 ©: 025400 4839 484 
BB27 025430 4844 485 
BB3 «024774 4 746M 
BB30 025452 48564 4859 
8831 4857 48594 
BB32 74 4861 48644 
BB33 025524 4866 48724 
p83, 546 48784 
BB35 025556 4879 48814 
BB4 =“ 025012 4750" 4753 
BBS 2 4751 47534 
BB6 (025034 4756 47594 
BB? 025064 4762 «47678 
BDONE 546 594 14M 
BERR 002502 591 5964 

RR1 002532 601 6084 
BITO = 000001 1464 
B1i00 = 000001 1368 = 146 
BITO1 = 000002 1354 = 145 
BITO2 = 000004 1344 144 

1T03 = 000010 1334 «143 
BITO4 = 1328 © 142 
BITOS = 131@ = 141 
BITO6 = 000100 130# = 140 
BITO? = 129% 139 
BITO8 = 0004 1284 138 10857 
BITO9 = 001000 127#@ 137 «10865 =: 10934 
BIT] = 1454 
BIT10 = 1264 10911 
BIT11 = 004000 125# 10872 
BITi2 = 010000 1244 10811 
BIT13 = 020000 1234 10918 
BIT14 = 040000 1224 10843 
BIT15 = 100000 1214 
BIT2 = 000004 1444 
BIT3 = 000010 1434 
BIT4 = 142 
BITS = 1414 
BIT6 = 000100 1404 
BIT7 = 1394 
BIT8 = 000400 1384 
BIT9 = 001000 1378 
BPTVEC= 000014 1534 
BI 002456 SB2# «593 

002460 5854 6©—-598 

B3 002476 5934 6606 —Ss«612 
CCCDON 042460 7424 75120 

CC1 041454 7265 
ECC10 04 73 : 
€CC11 042104 7 
€CC12 0421 74014 
€€C13 042174 74 
€CC2 041510 72 7 
cCC3 041 7289" 
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CJKDCB.P11 12-MAR-80 15:26 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0234 
ccc4. «41 73024 
cccs 041634 73144 

6 041670 . 
ccc? 041724 . 
cccs 041760 73514 
ccc? 042014 73644 
CCDATO 024566 4437 4443 4466 4472 4496 4502 4526 4532 4555 4561 4584 4590 4614 

4620 4629 4635 4641 4649 46654 

CCDONE 024726 4602 4606 4610 4616 4622 4631 4637 4643 4652 47144 

RO 024130 4454 4483 4572 4601 46034 
CCERT 0241 4448 46114 
CCER10 024476 4566 46534 
CCER11 024514 4568 46564 \ 
CCER12 024532 4595 46594 
CCER13 024550 4597 46624 
cc 024222 4450 46174 
CCER22 024236 46194 
CCERS 024260 4477 46234 
CCERS 024276 4479 , 
CCERS4 024312 46284 4658 
CCERS 024334 4507 46324 
CCERSO 024200 46134 4625 4655 466) 
CCERSS 024350 46344 4646 
CCER6 024370 4509 46384 
CCER? 024424 4537 
CCER8 024442 4539 46474 
CCER9O 024146 45135 4543 46074 

024576 4432 44 Gu 4461 4488 4550 4579 4613 4619 4628 4634 4640 4650 46694 

CCP 024606 4463 44.5 4623 46734 
CCP10 024676 4528 4645 47014 
CCP11 024 4557 4654 4657 47054 
CCP12 024716 47094 
ccP2 024616 4434 4439 4611 4612 4617 4618 467784 
CCP3 024626 4503 4518 4552 4562 4653 4656 46814 : 
CCP4 024636 ‘ 4581 4586 4591 4659 662 4663 46854 
CCPS 024646 ; 4522 4533 4644 4647 re 
CCP6 024656 4492 4498 4632 4633 46 4639 46934 
CCP7 024666 4468 4624 4627 46974 
cc 023144 44278 
cc10 3360 44754 4478 
cc11 023370 4476 4G 
CC12 023576 4471 & 
cc13 023410 4g 44854 
CC14 02 4487 9 
cc15 02 45 4510 
CC16 023 45054 4508 
cc17 023514 4506 
cc18 023522 4501 45104 
cc19 023534 4512 45154 
cc2 023174 443] 44354 
C 023564 4517 4 
cC21 023610 45 4540 
CC22 023630 45354 38 
CC23 023640 
CC24 023646 4531 45404 
CC25 023660 4542 45454 
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CJKDCB.P11 12-MAR-80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0235 
CC26 tle. 0 4549 45534 
CCe7 Osate 3732 45594 4569 
CC28 3752 45644 4567 
cc 3762 4565 45674 
cc3 23216 44418 451 

023770 4560 45694 
cCc31 24002 4571 45744 

024032 4578 45824 
cc35 024054 45884 4598 

024074 45934 4596 
cc35 4104 4594 45964 

024112 4589 
CC37 024124 & 46024 
CC4 023236 44464 
cc5 023246 4447 44494 
cCcé6 023254 4442 44514 
CC? 02 4453 44564 
ccs 023316 4460 44 
cc9 023340 470# 4480 
CDONE 003174 7614 
CKSWR = 104407 10842 10907 10933 114254 11606 
CMPSUB 040556 ha 6793 6808 6823 6839 6854 6872 6890 6908 6925 6945 6961 6979 
CMPTMP 040736 7060 7072 70764 ) 
CPSPUR 062556 515 552 851 1227 1263 1434 1612 2452 2463 2540 2645 2882 2990 

2993 3141 3144 3263 3401 6516 6529 6687 115564 11611 
CPTWO 062574 516 539 349115724 11612 
CR = 000015 614 11062 11072 
CRLF = 000200 49# 624 470 11033 11072 # £11619 
C1 002562 6354 
c15 2602 9 6414 
C 002624 6534 
C25 0 656 6574 
C 002664 
C35 002706 672 6734 
C4 732 
C45 002744 6884 
C5 002770 6994 
c55 003010 703 7054 
C 3032 7164 
C65 003046 718 7204 
3072 7314 

C75 003114 734 7364 
c8 003140 7474 
C85 003152 749 7514 
DDDATO 030076 5009 5015 5039 5062 5085 5091 5114 5120 51435 5149 5173 5180 5201 


5208 5215 5222 5229 5236 5243 5250 5257 3264 $271 5278 52824 


DDDDON 043414 7643 77404 
DDDONE 030226 {ke fee 5204 5211 5218 5225 5232 5239 5246 5253 5260 5267 5274 
DDD1 042 75314, 
DDD2 042540 75474 
DDD3 042614 756 
042670 7579H 
DDD5S 042744 75954 


CJKDCB-A KEF11-A FP “"y 


CJKDCB.P11 
DDD7 043074 
DDERO 027310 
DDER! 027326 
DDERIO 027744 
DDER11 030002 
DDERI2 030040 
DDER2 027364 
DDER3 027422 
DDER4 027 
DDERS 027516 
DDER6 027554 
DDER? 027612 
DDERS 027650 
DDER? 027706 
DDISP = 177570 
003436 
DDPO 030106 
DDP1 030116 
ODP2 0301 
DDP3 030136 
DDP4 «030146 
DDPS 030156 
DDP6 0301 
DDP7 030176 
DDPS «030 
DDP9 030216 
DDI 026236 
DD10 026436 
DD11 0 
DD12 026464 
DD13. —-G26514 
DD14 026536 
DD15 026 
DD16 026564 
DD17 026614 
Dis «=O 
DD19 026656 
DD2. 026266 
DD20 
DD21 026674 
DD22 026706 
DD23 ©: 026736 
DD24 026760 
DD25 027000 
26 027010 
DD27 027016 
DD3 026310 
DD30 —-: 027030 
DD31 «2 
DD32. 027102 
DD33. «027122 
3% 027132 
DD35 027140 
% 027156 
DD37 ~—s-: 027206 
DD38 027230 


PART 1 MACY11 3 
15:26 
76284 
5027 5050 
50 51984 
5156 52614 
57185 52684 
5187 52754 
5022 52054 
5045 S212a 
5068 52194 
5096 52264 
5098 52334 
§125 52404 
$127 52474 
5154 52544 
684 210 
817 8594 
5041 5064 
5004 5006 
5034 5059 
5080 5111 
5016 5138 
5140 5168 
5082 5109 
5087 5116 
5092 $121 
igo 5209 
50434 5046 
5044 50464 
5049 50524 
5056 50604 
50664 5069 
5067 50694 
5072 50754 
5079 50834 
50894 5099 
50944 5097 
5003 50074 
5095 50974 
5090 50994 
5101 51044 
5108 51124 
51184 5128 
51234 5126 
5124 51264 
5119 51284 
50134 5023 
5130 $1334 
5137 51414 
51474 5157 
51524 5155 
5153 51554 
5148 51574 
5160 51634 
5167 51714 
51784 5188 


: 2 
PAGE 223 


5192 


0A(1052) 12-MAR-80 15:31 
CROSS REFERENCE TABLE =~ USER SYMBOLS 
5073 5102 5131 5161 
434 
5216 5223 52864 
5036 5057 5199 5200 
5214 5220 52944 
aces 5235 5241 5248 
51 5256 5265 5269 
5255 5262 36/9 5277 
5227 5234 5242 5249 
5150 5181 5230 5237 
5145 5176 5258 5265 
53224 7 


51944 


5207 


5213 


5221 


52904 


SEQ 0256 


CJKDCB-A_KEF11-A FP ot ee 1 MACY11 30A(1052) 


CJKDCB.P11 5:26 
0D39 027250 51834 
DD4 026330 50184 
DD40 7260 5184 
DD41 027266 5179 
DD42 027304 5191 
DDS 026340 5019 
DD6 026346 5014 
DD7 026364 20e8 
Dds 026414 503 
DERR1 0035516 793 
DERR2 003412 792 
DISPLA 001142 2104 
DISPRE 000174 1784 
DIVDSU 043154 7533 
DIVDOT 0434 7692 
DIVFSU 042234 267 
74528 
DIVFT 042450 7469 
IN 0573 10793 
DPATS 015316 26874 
DSWR = 1775 674 
D1 003222 7958 
D10 003424 850 
D2 003246 798* 
D3 003250 8024 
D4 003254 
DS 003266 8104 
D6 003302 811 
D7 003312 816 
D8 003 8354 
D9 003574 840 
EDONE 0035576 895 
EEDATO 030720 5347 
EEDONE 031002 5397 
EEEDON 044424 7918 
EERO 030512 5366 
EEER1 0305350 5359 
EEE 030566 5361 
EEER3 030624 5389 
EEERS 030662 5391 
EEE1 043420 77604 
EEETO 044014 78714 
EEE11 044050 78834 
EEE12 044104 78954 
EEETS 044140 7907# 
EEE2 043454 7772h 
EEE3 043510 77854 
EEES 3544 77978 
EEES 7 
EEE6 3634 78224 
EEE7 3670 78354 
EEE8 043724 78478 
EEE9 37 7859" 
EEPO 030730 5349 
EEP1 030742 5342 
EEP2 030752 5355 


VIMAVIVIVIVIVIVIVI 
Soo 
=O 


feaeer’ 


12=MAR-80 
CROSS REFERENCE TABLE -= USER 


10887* 


857 


9184 
5384 


5415 


10910* 


7597 
773748 


7316 


5405 
5422 


15:31 


7614 
7328 


5412 
5429 


3 
" PAGE 224 
SYMBOL S 


7630 
7340 


5419 
54554 


54 


s 
54594 


76734 
7353 7366 7378 7390 
5426 543504 


7403 


SEQ 0257 


7415 


CUKDCB-A KEF11-A FP DIAG PAR 
12-MAR-80 15: 


CJKDCB.P11 
EEPS 030762 
EEP4 030772 
ERRO 003514 
EERR1 003532 
EERR2 003546 
EET 030232 
EE10. 030452 
EET 030462 
EE12 030470 
EE13 030596 
EE2 0 
EES 030 
EES 030324 
EES 030334 
EE6 030342 
EE? 030 
EES 030410 
EES 030432 
EMSG 062456 
EMTVEC= 000030 
EM 062743 
EM2 062771 
EMS 063025 
EMG 063053 
ERRVEC= 000004 
ERTYPE 062342 
ERTS 062452 
E1 003452 
E2 003466 
ES 003466 
E4 003470 
FDATIO 0053572 
FDATI1 005374 
FDATI2 005376 
FDATI3 005400 
FDATI4 005402 
FDATI5 
FDATI6 
FDATI7 005410 
FDATOO 005414 
FDATO1 005416 
FDATO2 005420 
FDATOS 005422 
FDATO4 005424 
FDATOS 005426 
T 005430 
FDATO7 005432 
FDONE 005456 
FERRO 004200 
FERR1 004236 
FERRIO 005016 
FERR11 005052 
FERR2 0043534 


G 3 
PAGE 225 


54474 


792s 955* 995* 
3358* 6510"  6516* 


T 1 MACY11 30A(1052) 12-MAR-80 15:51 
26 CROSS REFERENCE TABLE -- USER SYMBOLS 
$373 5775 5417 5418 5424 $425 
5385 54514 
888 8954 
836 9014 
87 9074 
53374 
53874 5390 
5388 53904 
5383 $3924 
5395 53974 
5341 53454 
53514 5362 
53574 5360 
5358 53604 
5352 53624 
5365 53684 
5372 ey 
53824 539 
11497 115184 
1564 403* 404* 
352 «6116194 
353 116194 
354 116194 
355 116194 
1494 431 432* 443 501* 515* 
2507* 2612* 2821* 2931* 3082" 3231* 
10854* 11611* 
10920 114874 
11501 + 115 115154 
8798 
8824 
881 8834 
8844 7 
947 971 1056 1057 1066 12784 
12794 
12804 
1216 12814 
954 963 1061 1071 1209 12824 
1225 12834 
12844 
12854 
990 1011 1104 1125 12878 
12884 
12894 
1252 12904 
994 1003 1099 1109 1194 1244 
1131 1146 1261 12924 
1162 1177 12934 
1126 1195 12944 
1051 1059 1079 1083 1094 1116 
1204 1223 1233 1240 1259 1269 
976 10534 
965 10614 
1032 1044 1150 1181», 1192# 
982 1050 12004 
969 10864 


Oo 


SEQ 0238 
1338* 1522*  2342* 2373 
6529* 10848 10849* 10851* 
1760 1175 1190 1198 


UIs 


H 3 
CJKDCB-A_KEF11~A FP DIAG, PART 1 MACY11 30A(1052) 12-MAR=80 15:31 PAGE 226 
CJKDCB.P11 12-MAR=80 15:26 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0239 
FERR20 005672 955 12064 
FERR21 005210 1214 12354 
FERR2S 005232 995 12424 
FERR 005350 1250 le ooe 
FERR 004374 1005 10994 
FERRS 004366 1009 10964 
FERRS 004472 1016 1020 1024 1028 11234 
FERR6 004526 1036 11314 
FERR7 1040 11624 
FER2 340 10884 1097 
FFDATO 031300 5483 5506 5527 5535 554148 
FFDONE 031360 5517 5522 5530 5538 55678 
FFERO 031170 5493 5516 55194 
FFER 31 5512 55244 
FFER2 031242 5489 55328 
FFFDON 045154 8090 81854 
FFF 044430 80264 
FFF 044504 804 
FFFS 044560 80594 
FFF4 044634 80754 ' 
FFPO 031310 5501 5526 55464 
FFP 31320 5503 5525 55504 
FFP2 031330 5478 5534 55544 
FFP3 031340 5480 5533 55584 
FFP4 031350 5485 5508 5528 5536 55624 
FFI 31006 54734 
FF10 031156 5511 55134 
FFT 31166 5515 55174 
FF2 031036 5477 54814 
FF3 031060 54874 490 
FF4 1066 5488 54904 
FF5 031076 5492 54964 
FF6 031126 5500 55044 
FF7 031150 55104 5513 
FPSPUR 06252 512 823 909 2396 2415 3625 3667 4319 5691 5845 5975 6042 6110 
6139 6210 6289 7172 7195 B08 8877 9146 115368 11610 
FPVECT= 000244 454 499* 512* 793* 877* 23 2371% 3511* 3608* 4219* 4738"  5635*  5691* 
5937* 5962*  6004* 29 7?2e* ? 7107* 7159* 8334*  $606* 8864" 9155* 11610* 
FXDATO 005436 948 972 1012 1054 1055 1127 1296" 
FXDAT1 005440 12978 
FXDAT2 2 12984 
FXDATS 005444 12994 
FXDAT4 005446 _ 1196 13004 
FXDATS 005450 13014 
FXDAT6 005452 13024 
FXDAT7 005454 13034 
FI 003602 9414 
F10 004014 986 999% 1249 
F1l 004016 10004 1096 
F12 004034 1004 10074 
F135 004066 1015 10184 
F135 004046 1008 10114 
F14 004076 1019 10224 
F15 004 106 1023 10264 
F16 004116 1027 10304 
F17 004126 1031 10344 


aaa 
—_—— 


CJKDCB=A_ KEFITI-A FP ot a 1 MACY11 30A(1052) 


CJKDCB.P11 5:26 
F2 003634 9514 
F20 004136 1035 
F21 004146 1039 
F22 004156 1043 
F23 004174 1049 
F3 003654 943 
F4 003656 9604 
FS 003674 964 
F6 003750 981 
F7 003774 9914 
GANDO 011022 20824 
GAND 1 011024 20834 
GAND2 011026 20844 
GAND 3 1030 20854 
GCMP 010746 1700 
GDATOO 011042 1691 
2049 
GDATO1 011044 20934 
GDATO2 011046 
GDATO3 011050 20954 
011052 2026 
GFLAG1 0776 1702 
1873* 
GFLAG2 011000 20704 
GGDATO 036100 $943 
6179 
6310 
GGDONE 036220 6133 
6283 
GGERO 034376 5937 
GGER1 034474 5949 
GGER10 035206 6037 
GGER11 035254 6052 
GGER12 C35322 6057 
GGER13 035370 6064 
GGER14 035436 6072 
GGER1S 035534 6084 
GGER16 035602 6089 
GGER17 035650 6105 
GGER18 035716 6120 
GGER19 035764 6131 
GGER2 034542 5954 
GGER20 036032 6125 
GGER3S 034610 5970 
GGERG4 034656 5985 
GGERS 0 5996 
GGER6 034726 5990 
GGER7T 034774 6004 
GGERB 035072 6016 
GGER9 035140 6021 
052236 9502 
GGG1 05 92654 
GGG10 051334 94204 
GGG11 051404 94374 
GGG12 051454 94544 
GGG13 051524 94714 


12-MAR~80 


15:31 


I 3 
PAGE 227 


CROSS REFERENCE TABLE == USER SYMBOLS 


1213 


1785 


1869 
1860 


1787 
1957 
6078 
40 
63654 
6204 
6353 


1897 
1888 


1789* 
1983 


6103 
6250 


6223 
6363 


1817* 


2011 


6145 
6270 


6243 


SEQ 0240 

2009 
2000 2043 
1845* 1871 
2029 206 
6159 6169 

6300 
6263~~- 6273 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR~80 15:26 


CJKDCB.P11 
G6G14 051574 
GGG2 050654 
GGG3 50 
GGG4 050754 
GGGS 051024 
GGG6 051074 
GGG? 051144 
GGG8 051214 
GGG9 051 
GGP1 036110 
GGP2 (0361 
GGP3 0361 
GGP4 = 036140 
GGPS («036150 
GGP6 0356160 
GGP7 («036170 
GGP8 036200 
GGP9=—s_—«936210 
GG1 035506 
GG10 033602 
GG11 033640 
GGi2 033662 
GG13 «033672 
GG14 =: 033710 
GG1S =s_-« 033746 
GG16 0335764 
GG17 = 034052 
GG18 = 034042 
GG19 =: 034076 
GG2 035 
GG20 (034154 
GG21 034156 
GG22._ 034166 
GG2S 034204 
GG244 034242 
GG25 034260 
GG26 034326 
GG27 «034536 
GG28B 389034372 
GG5 033366 
GG4 033376 
GG5 033414 
GG6 033452 
GG7 033470 
GG8 033536 
GG9 033 
GNS eaanae 
GORO 011032 
GOR1 011034 
GOR2 011036 
GOR3 


011040 
GPATOO 011002 


59864 
469 


1746 


11417 


1803 


12-MAR~80 
CROSS REFERENCE TABLE ~~ USER SYMBOLS 


11418 


1859 


11419 


1915 


15:31 


11420 


1971 


3 
’ PAGE 228 


6239 
6255 
6157 
6170 


6349 


11421 


2059 


6249 
6268 
6158 
6180 


6359 


11423 


20724 


6259 
6278 
6167 
6192 


63994 


11425 


6269 
6299 
6168 
6202 


11426 


6279 


63784 


6177 
6221 


11427 


6308 


6178 
6231 


° 
11428 


a 


SEQ 0241 


6318 


6189 
6241 


11429 


eR 


K 3 
CJKDCB-A KEF17-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR-80 15:31 PAGE 229 





CJKDCB.P11 + 12=MAR-80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS \ SEQ 0242 
GPATO1 011004 207 
GPATO2 011006 20744 
GPATOS 011010 20754 
GPAT1O0 011012 1718 1775 1831 1887 1943 1999 2034 20774 
GPAT11 011014 20784 
GPATi2 011016 20 
GPAT13. 011020 2 
GRESET 010726 171 1740 1768 1797 1825 1853 1881 1909 1937 1965 1993 2021 20494 
GSETUP 010650 169 1721 1749 1778 1806 1834 1862 1890 1918 1946 1974 2002 20294 
GS1 010700 20 2053 
GTSWR = 104406 464 114234 
G1 007134 16954 1714 
G10 007406 1759 17634 
G11 007410 1762 17644 
Gl2 007464 1774 17804 1799 
G13 007516 1788 1 oe 
G14 007520 1791 17934 . 
G15 007574 1802 18084 1827 
G16 007626 1816 18204 
G17 007630 1819 18214 

007166 1703 17074 

7704 1830 18364 1855 

G21 7736 1844 18484 
G22 7740 1847 18494 
G23 010014 1858 18644 1885 
G24 010046 1872 18764 
G25 010050 1875 18774 
G26 010124 1886 18924 1911 
G27 010156 -1900 19044 
G3 007170 1706 17084 
G30 010160 1903 19054 
G31 010234 1914 19204 1939 
G32 010266 1928 19324 
G35 010270 1931 193354 
G34 010344 1942 19484 1967 
G35 010376 1956 19604 
G36 010400 1959 19614 
G37 010454 1970 19764 
GS 007244 1717 17234 81742 
G40 010506 1984 19884 . 
G41 010510 1987 19894 
G42 010564 1998 20044 2023 
G45 010616 2012 20164 
G44 010620 2015 20174 
G5 007276 1731 17354 
G6 007300 1734 17364 
G7 007354 1745 17514 1770 

011602 2249* 2257 227. 
HAIR 011656 2227 2251 2260 $56" 
HATW 011606 2117 2127 2154 2250 2268 22814 
HA2R 0117 2231 22944 
HA2W 011616 2131 2167 22834 
HASR 011676 2235 22964 
HA SW 011626 2135 2180 22854 
HA4R 011706 2239 22984 
HASW 011636 2139 2193 2287H 


CJKDCB-A_KEF11-A FP os 


CJKDCB.P11 


EtEttte tte: ; 
BERORORS 288 


; 
3 


USS SLELLESETESLTEALEIIE 


vi“ MO~ 
Rey ane 
oO REEMA 


ey ee ee es 


011766 


° Ooococeo0ce00oo 


033242 


PART 1 MACY11 3 
15:26 


S: 

2243 23004 

2143 2206 

2123 $5ee 

22624 2263 

2149 2161 

22534 2256 

2254 22564 

2118 23034 

23054 

23074 

23094 

23114 

2219 2275 

2255 2c674 

2116* 2217 

5606 5612 

5792 5801 

5732 5741 

5854 59074 

$617 57334 

5625 57514 

5619 5742a 

5731 58324 

5647 57604 

5652 57694 

5677 57784 

5679 57874 

5684 57964 

5703 58054 

5708 58144 

5726 58234 
100964 

96554 

98674 

99134 

99364 

96784 

97014 

97244 

ortee 

97944 

98184 

98414 

5601 5737 

5603 5736 

23 RBs 

2588 

5613 58714 

5643 5673 

5636 5715 

5638 5763 

5668 5784 

5661 5692 


22894 
22604 


2174 


23144 
2221* 
5641 
5810 
5750 


2187 


~N 


VV WVWIVIVIM 
1 & 
> ed. 
wn ~_Y 


Reps 
™Nm 


ww 
“ww 


bom 
OA(1052) 12-MAR-80 15:31 PAGE 250 
CROSS REFERENCE TABLE ~~ USER SYMBOLS 


2200 22135 = 2249m 
672 5697 5720 5738 5747 
5828 5837 58554 
768 5777 5786 5795 5804 
58598 
58654 
58674 
2873" 
73 5826 5827 5835 5836 
hd 
5791 5800 5808 5809 5817 


5756 5765 
§813 5822 
58798 

5818 58914 


5774 
5831 


SEQ 0243 


5783 
5840 





3 
CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR=80 15:31 "PAGE 231 


CJKDCB.P11 — 12=MAR~80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0244 
033252 5663 5781 5790 5799 589S# 
HHTRAP 033062 5635 58414 
HH1 031362 559m 
HH10 031574 5646 56484 
HH11 031612 5651 56554 
HH12 031642 5660 
HH13 031664 56704 
HH14 031704 5675#@ 5678 
HH15 31714 5676 ©: 56784 
HH16 031722 5671 56804 
HH17 031740 5 
HH18 031776 56 56954 
HH19 =O 57014 
031412 5 56044 
032030 5702 
HH21 032046 5707-45710 
HH22 032076 5714 «457 
HH23 032120 5724" 5727 
HH24 032130 5725 «57278 
HHO5 146 5730 5732m 
HHS «031434 5610" 5620 
He = 031454 56154 5618 
HHS «031464 5616 0-56.18 
HH6 ss 031472 5611  5620# 
HH? «031504 5622 5629" 
HH8 031542 5634 56390 
HHO «0031564 56454 5648 
HSTD 011416 214721 2173. 2186 «= 2199S «2212S 22S 
HT — = 000011 59# 11031 11072 
HXDATO 037630 6457 G44 4786487 6533 6553 6562 6590 6621 6651 6657 6672 6679 
HXDONE 037740 6635 6642 «664766536659 6664 6669) 6674 6681 039 6692 6701 6710 6756" 
HXERTO 037506 6519 66 94# 
HXER11 037540 67034 
HXER12 037560 67064 
HXER13 037610 6597 6628 67124 
037256 6539 
HXER22 037272 66514 6705 6714 
HXER3_ 037306 6450 66554 
HXER33 037322 66574 
037336 6603 6634 66614 
HXERS 037236 6474 6 644A 
HXER6 6491 66704 
HXER66 037406 66724 
HXER7 037422 6493 6676" 
HXER8 54 é 66664 
HXERD 037452 6510 66834 ; 
HXP1 037640 6427 6462 65 6585 6593 S616 66246712 6713-672 
HXP2 037650 6429 6432 6443 6665 6472 6530 66 6644 6649 6655 6670 6676 67268 
HXP3 037660 67304 
HXP4 037670 6550 6703 6706 67344 
HXP5 037700 6556 6704 6707 673 
HXP6 «037710 6527 6548 6612 6742" 
HXP7 037720 6439 6486 6535 6561 6650 6656 6747 


HXP8 037730 6481 6671 6677 67514 in 





3 
CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR=80 15:31 NAGE 232 


CJKDCB.P11 12-MAR-80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0245 
x1 036224 64234 
HX10 32 6473 647 
HX11 036454 64834 649 
HX12 036474 64894 6492 
HX13 036504 64924 
HX14 036512 6484 oa , 
HX15 036530 65044 
HX 16 036556 6509 65124 
HX165 036562 65134 668 6696 
HX17 036610 6518 65214 
HX18 036646 6526 65314 
HX19 036666 65374 6540 
HX2 036254 30 64314 
rk 036676 6538 65404 
HX21 036700 65434 
HX22 036730 6547 65514 
HX23 036750 65 
036770 65 
037000 6565 65674 
HX26 03 6559 65714 
HX27 037010 65754 
HX28 037042 6584 6 
HX29 03 65954 6598 
HX3 0 6433 3 
Hx30 037074 6596 65984 
HX31 037112 6602 66074 
Hx 32 037142 6615 66174 
Hx33 037164 
HX 34 037174 6627 
Hx35 037212 33 66354 
HXx4 036310 64414 6451 
Hx5 036330 6449 
HX6 036340 6447 644 
HX7 036346 6442 64514 
Hx8 036364 64 64574 
HX9 036416 64 647 ’ 
Ho 011060 21164 
H10 011322 21 2201 
H11 011354 2 214 
H12 011406 2218 22214 
H2 011100 21 121 
H3 011110 21254 2222 
H4 011162 21474 
H5 011 21574 2162 
H6 011236 217 2175 
ae 011270 21834 2188 
IDATIO 006274 1325 1331 1348 1376 1381 1409 1445 14864 
IDATI1 006276 14874 
IDATI2 006300 1406* 14884 
IDATI3 006302 1407* 14894 
IDATOO 006264 1347 1403 1408 1446 14814 
IDATO1 006266 14824 
IDATO2 006270 135 1358 1414 14834 
IDATO3 006272 1417 148464 
006304 1423 1441 1448 1456 1468 14914 
IERRO 006044 1338 14264 


CJKDCB-A_KEF11~-A FP ONG oe 1 MACY11 30A(1052) 


CJKDCB.P11 726 
IERR1 006126 1362 
IERR2 006146 1366 
IERR25 006170 14544 
IERR 0062 1398 
IERR4 006174 1419 
The. 046014 8275 
1111 045160 asoee 
III2 045224 822 
1113 045270 82414 
1114 045334 82584 
IOTVEC= 000020 1544 
IPAT1O 006244 1326 
IPAT11 006246 14724 
IPAT12 006250 1414 
IPAT13 006252 1417 
IPAT2ZO 006254 1334 
IPAT21 006256 14774 
IPAT22 006260 14784 
IPAT23 006262 14798 
11 005464 13234 
110 005640 1356 
1105 005646 1351 
1106 005642 1364 
111 005650 13724 
I12 005652 13754 
1135 00 13784 
114 005722 1388 
115 005724 13924 
116 005 13934 
117 005744 1397 
I2 005502 13284 
120 14114 
i21 14164 
I22 G06024 1415 
123 1412 
13 005542 1339 
14 005544 13414 
I5 005546 13424 
16 005572 13504 
I7 13554 
JBUFO 012766 2516 
JBUF 1 2770 2 
. JBUF 2 12772 25674 
JBUF3 012774 25684 
JDATIO 012776 2505 
JDATI1 013000 25714 
JDATI2 013002 2572H 
JDATI3 013004 25 
JDATOO 013006 2513 
JDATO 013016 2502 
JDATO1 013010 25764 
JDATO2 013012 2577 
JDATOS 013014 5784 
JDAT1 013020 25814 
JDAT2 013022 25824 
JDATS 013024 25834 


3 8 


Sexes 


ee ee ee ee ee 
RERWE SSS 
Soko woo 
Raz 


$ 


z 


m 
B-S-5 
WW 


14444 


1464 


2528 


2561 


12-MAR-80 


2552 


25754 


2560 


15:31 


25708 


B 4 
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CJKDCB.P11 5:26 
JDONE 013026 2532 
JERRO 012646 2507 
JERR1 012714 2518 
JERR2 012740 2525 
JJJDON 046754 8547 
JJJ1 84654 
JJJ2 046104 84864 
JJJ3 046170 85074 
JJJS 54 85294 
J1 012540 24994 
J10 012666 2537 
J2 012564 25094 
J3 012566 25104 
J4 012570 25114 
JS 012624 25234 
J6 012632 2524 
J7 012644 2529 
KBUFO 013270 2610 
KBUF1 013272 26754 
KBUF2 013274 26764 
KBUF3 013276 26778 
KDATIO 013260 2625 
KDATI1 013262 26704 
KDATI2 013264 26714 
KDATI3 013266 26724 
KDAT 013300 2618 
KDATO1 013302 26804 
KDATO2 013304 26814 
KDATO3 013306 26824 
13320 2637 
KERRO 013142 2612 
KERR1 1 2623 
KERR2 013232 2630 
KKKDON 047616 
KKK1 760 87404 
KKK3 047024 87584 
KKK4 70 87754 
KKK5 — 71 87924 
KPATO 013310 2607 
KPAT1 013312 26854 
KPAT2 013314 26864 
K1 013034 26044 
K10 013162 2642 
K2 013060 26144 
K3 013062 26154 
K4 013064 26164 
KS 13120 26284 
K6 013126 2629 
K7 013140 2634 
LDATIO 013620 2713 
LDATI1 013622 27874 
LDATI2 013624 2733 
LDATI3 013626 2738* 
LDATOO 013632 . 2730 
LDATO1 013634 2772 
LDATO2 013636 27934 


mnrononoronrnonr 


™m 
oO 
Ww 
oO 
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2554 2563 25864 


25494 
25424 
2559 
2633 26744 
2664 26694 
2665 26798 


2658 2667 26894 
26534 


26474 
2663 


2739 2759 2771 27864 
2753 27884 
2760 2765 27918 


SEQ 0247 
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LDATO3 013640 27944 
LDONE 013642 2748 2755 2762 2774 2796# 
LERR1 013454 2735 = 2750# 
LERR2 013526 2745 3s - 276 4# 
LERR3 013500 27578 2768 
LF = 000012 604 11066 11072 
LLLDON 050560 9076 92434 
LLLI 047602 89954 
LLL2 7706 90164 
LLL3 047772 90374 
LLL4 050056 905 
002160 4724 10820 
LPAT10 013576 0 27764 
LPAT11 013600 2777 fn 
LPAT12 013602 27784 y 
LPAT13 013604 2779 
LPAT20 013606 714 2764 £27814 
LPAT21 013610 27824 
LPAT22 013612 27834 
LPAT23 013614 27844 
LPERR = 104414 497 579 633 652 667 683 698 
985 1321 1373. «=6©1507—Sss«1550—Sss«é1692~=—S—sé«Y1 7200 
1917 1945 1973 2001 2114 332 365 
3576 3606 3723 #3751 3780 $308 5 
4248 4283 4428 4457 £4486 4516 4546 
4865 5000 5030 5053 507 5108 s_s«4§ 134 
5 5656 5687 °&#&5711 593 5958 6000 
6522-6544 ~—S ss 6576 6778 792 ~3=— 6807 
6924 6942 6960 69 7102s 7128 ~=Ss 781 
7339 «= -7352—i‘z7386HSC;é‘C'S 02 7414 
7 7761 7773 Ss «7786——«i77988”—é«S78QBT 3 
27 = 8044—Ss—s«éB100 3076 82246 
8741 8759 8776 8793 177 19 
9351 9369 9387 9404 9421 9455 
97 9819 984 
10192 10361 10385 10409 10433 10609 10673 
L1 013326 2707# 
L2 13366 244 ©2751 2758 ©2770 
L3 013370 OSM 
L4 013372 2727H 
LS 13442 27434 2746 
OS 013450 2764 27464 
MDATOO 014162 2836 2839 2849 #£=2859 #2875 29014 
MDATO1 014164 29024 
MDATO2 0141 
MDATO3 014170 29044 
014172 2847 2861 2871 2878 2889 29064 
MERRO 014016 2832 286 
MERR1 014054 2842 2853 28734 
MERR2 013770 28564 
MERR3 014102 2821 28804 
055272 10206 103394 
Dall 054350 101174 
mm2 054422 10135A 
mms 8 = 054474 101534 
me 054546 101724 


1 


9285 
9656 
10118 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
12-MAR- 


CJKDCB.P11 -~80 15:26 
me's 054620 101914 
MODDDO 956500 10507 
MODDD1 056310 10509 
MODDOV 055712 10362 
MODDSU 053746 9657 
9992" 
MODDTO 054324 10010 
MODDT1 054334 10012 
MODFDO 055252 10261 
MODFD1 055262 10263 
MODFOV 054676 10119 
MODFSU 051650 9267 
9490 
MODFTO 052 9556 
MODFT1 052216 9558 
MODP 1 S22 9543 
MPAT1O 014142 2817 
MPAT11 014144 28924 
MPATI2 014146 289 
MPAT13 014159 2 
MPAT20 014152 2858 
MPAT21 014154 28974 
MPAT22 014156 28984 
MPAT23 014160 28994 
MULD 71 8028 
MULDT 045144 8137 
MUL F SU 7762 
79468 
MULFT 044414 7963 
MULT 062422 11496 
M1 01 28144 
M15 01 28254 
M2 013672 28264 
M3 013674 28274 
M4 013676 28284 
mS 013732 2841 
M6 13736 28444 
M7 013746 2845 
M8 013756 28514 
ard 013766 2852 
NDATIO 014670 73 
NDATI1 014672 30524 
NDATI2 014674 30534 
TIS 014676 30 
TOO 014626 2938 
NDATO1 014630 30354 
NDAT 014632 30 
NDATOS 014634 30374 
14700 2978 
RRO 014370 2931 
NERR1 014470 2946 
NERR10 014422 2987 
NERR11 014434 2992 
NERR2 014524 2950 
NERR20 014476 30094 
NERRS 014534 2960 


8045 
8146 
7774 


7972 
11502 


2857 
2865 


12-MAR-80 


E 4 
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3017 


—— dd dd 
ODOOO 
NU 

Own MNWwWwo 
CoS 


and aad ond and aad 
BLESS 
wo RF — 


2874 


30514 


2972 


3013 


3019 


105904 
104884 

9749 9772 9796 9820 9843 
100904 
100934 
10193 102424 

9335 9352 9370 9388 9405 
10493 

1184 

81824 

7811 7824 7837 7849 7861 
2886 

3029 30344 

3025 3032 30564 


9869 


9422 


78753 


9892 


9439 


7885 


9915 


9456 


7897 


” ' 


SEQ 0249 


9938 


9473 


7909 
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CJKDCB.P11 15:26 
NERRG 014544 2968 
NERRS 014554 2970 
NERR6 014600 ores 
056320 10453 
NINA 055276 103604 
NNN 055400 103844 
NAN 3 055502 104084 
NNNG 055604 104324 
NPAT10 014660 2925 
NPAT11 014662 30474 
NPAT12 014664 39484 
NPAT13 014666 30494 
NPAT20 014646 2929 
NPAT21 014650 30424 
NPAT22 014652 30434 
NPAT23 014654 30444 
NULL 735 1206 
N1 014176 29234 
N10 014330 29654 
N11 014340 2953 
N12 014342 2942 
N13 014356 297 
N14 4366 2976 
N2 014222 29344 
N35 014224 29354 
NS 014226 29364 
NS 014244 29444 
N6 014254 2945 
N7 014264 2949 
N8 014302 29574 
NS 014314 2958 
ODATIO 015374 3124 
ODATI1 015376 32054 
ODATI2 015400 32064 
ODATI3 015402 32074 
ODATOO 0715332 3090 
ODATO1 015334 3106 
ODATO2 015336 31894 
ODATOS 015340 31904 
015404 3129 
RRO 015074 3082 
RR1 015174 3098 
OERR1O 015126 3138 
OERR11 015140 31524 
OERR2 015230 3102 
OERR2ZO 015202 31614 
OERRS 015240 , Sean 
OERR4 015250 3119 
OERRS 015260 3121 
RR6 015304 3131 
OPAT1O 015364 3077 
OPAT11 5366 ' 32004 
OPAT12 015370 2014 
OPAT13 015372 32024 
OPAT20 015350 3093 
OPAT21 015352 3080 


2944 


116194 


29704 


3023 


3193 


3123 


3158 
31604 


3169 


NS 
— — 
S 
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+ 
2948 2952 2963 2991 3022 30414 


3028 


32044 
3182 31878 


3165 3178 3185 32094 


3171 


3104 3114 3142 31948 


teed 


CUKDCB=-A_ KEF11-A FP D 


CJKDCB.P11 


015354 
015356 
015360 


fe pebe, 
SESy 


GW 33 
— ad od 
Ser 3 
=d “J 
—~ANAIAIA NWNWW 


Ane PART 1 MACY11 3 
18:26 


rot 
ue 
Was 


SN 


— 

we aa ms 
fa 
AUYSES 


116194 
33204 


0A( 1052) 


3181 
3176 


3246 


3251 


3303 


3274 


G 4 
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3267 


3308 


3310 


3278 


8688 87124 | 
9231 92404 
8416 84404 
8962 89714 
85874 

91144 

83154 

88444 


3271 3275 3279 3283 3301 3307 33254 


33504 
3318 33354 
5282 32884 


————e — —_euee ee a en 


SEQ 0251 





——— 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
80 15:26 


CJKDCB.P11 


5 


016106 
= 016110 


016112 


834 
84a 
854 
864 


ELELKEEEES 
SIESEL Eos S 


wW 
we] 
™N 
™N 


33954 
3365 


408* 


3298 
3400 


3465 © 


3382 


3441 


3414 


3389 


3436 
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11437* 
3306 


34754 


3390 


3451 


3418 


3403 


3449 


4 
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11438* 11447% 11453" 11465* 11466* 
3313 

3456 34704 

3458 34804 

34264 


3407 3411 3415 3420 3439 34654 


3454 


ee 


SEQ 0252 | 
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Q5 016134 33734 $503 
Q6 016156 3374 33824 
Q? 016166 33844 86 
01 3385 33894 
Q9g 016214 33928 3395 
RDCHR = 104410 Fe 
RESREG= 104412 114284 
RESVEC= 000010 1504 418* 25% 
RSETUP= 104413 565 615 762 860 ‘4 1307 1492 1667 2099 2315 2483 2587 2690 
2797 2907 57 3210 3336 3481 3849 4009 4112 4199 4409 4715 4888 
4897 4984 5456 4's 6408 6757 7082 7246 7515 7741 7 8186 8444 
8716 8975 9244 96 10097 10340 £10594 114294 11543 11559 11575 
012506 2398 2411 2416% 2423 2429 24704 
SAVREG= 104411 114274 
SDATOO 012522 2350 2353 2381 2384 24774 
SDATO1 012524 24784 
SDATO2 012526 24798 
SDATOS 012530 24804 
012532 2416 2435 2438 2442 2445 2457 2468 24824 
012212 2337 23944 | 
SERR1 012422 2 24484 
SERR10 012232 24 2417 
SERR15 012312 2405 24 
RR2 012352 2358 24334 
SERR20 2332 2410 24 
SERR3S 012376 2361 244084 
SERR4 012270 2371 24134 
SERRS 012454 2373 24594 
012364 2389 24 
SERR7 012410 2391 24434 
E 116194 
SPAT10 012512 2334 2354 2368 2385 24724 
SPAT11 012514 24734 
SPAT12 01251 24748 
SPAT13 0125 24754 
STACK = 001100 473 11614 
START 001 181 3924 11470 
STKLMT= 177774 6 
001140 2094 397 433* 435 441% 448 462 10811 10843 10857 10859 10865 10872 
10911 10918 10930 10934 11287 11324* 11445 11458" 11605 
SWREG 000176 1794 44 62 11287 #11300 
SWwO = 000001 1184 
swOoO = 000001 1084 118 
swot = 000002 1074 #8117 
SwO2 = 000004 1064 176 
SwOS = 000010 1054 115 
SwO4 = 000020 1044 114 
SwOS = 000040 1034 113 
SwO6 = 000100 1024 112 
SwO7 = 000200 1014 111 
SwO8 = 000400 1004 110 
SwOo9 = 001000 994 109 
Sw? = 000002 1174 
Sw10 = 002000 984 
SW11 = 004000 974 
Sw12 = 010000 964 


CJKDCB-A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 
~80 15:2 


CJKDCB.P11 6 
Sw13 = 020000 954 
SwW14 = 040000 944 
Swi1S = 100000 934 
Sw2 = 000004 1164 
SwW3 = 000010 1154 
Sw4 = 000020 1144 
SwS = =-_-—«O00040 1134 
Sw6 = 000100 1128 
Sy 60Cti 1114 
Sw8 = 000400 1104 
Sw9 = 001000 1094 
$1 012002 23314 
$10 12150 23798 
$11 012174 23874 
St2 12204 2388 
S2 012036 23454 
s3 012040 234 
S4 012044 23484 
ss 012070 23564 
S6 012100 2357 
$7 12106 23644 
s8 012142 23764 
s9 012144 2377a 
TAB = =-:«€OD0071 484 
TBITVE= 000014 1514 
TDATIO 007066 1510 
TDATI1 007070 16624 
TDATI2 7072 1584* 
TDATI3 007074 1585* 
TDAT 7056 1528 
TDATO1 007060 16574 
TDATO2 007062 1537 
TDATOS 7064 1595 
007076 1690 
TERRO 1522 
TERR? 006 1541 
TERR2 006746 1543 
TERR2S 006762 16314 
TERRS 007012 1575 
TERRS 774 1597 
TKVEC = 1584 
TPAT10 007036 1509 
TPAT11 007040 16474 
TPAT12 007042 1592 
TPAT13 007044 1595 
TPAT20 007046 1518 
TPAT21 007050 16524 
TPAT2Z2 007052 16534 
TPAT23 007054 16544 
TPVEC = 000064 1594 
T = 000034 1574 
TRTVEC= 000014 1524 
TST1 002220 4964 
TST10 0063506 15054 
TST11 007100 16864 
TST12 011054 21134 


11 


405* 


16464 


16514 


406* 


12-MAR-80 


2459 


1553 


1586 


1633 


1558 


4 
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1587 1623 16614 


16564 


16664 


SEQ 0254 
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CJKDCB.P11 :2 
TST13. 012000 23304 
TSTI4 3 §=012534 24964 
TST1S 013030 26014 
TSTI6 =©013322 27044 
TST17 13644 28124 
TST2 002446 5784 
TST20 014174 21a 
TST21 3§©014702 30724 
TST22 015406 2234 
TST23 016062 33504 
TST24 016562 35024 
TST2S5 017676 37214 
TST 06 
TST27 021202 40234 
TST3 50 6324 
TST3O0 021606 41278 
TST31 022110 42144 
TST32 46023142 4254 
TST33 024730 47324 
TST34 026234 49974 
TST35 0350230 53354 
TST36 4 ©.037004 54714 
TST37 ©6031 360 55704 
TST4 003176 7894 
TST40 «033304 59298 
TST41 036222 64214 
TST42 037742 67744 
TST43 040750 70998 
TST44 041452 72624 
TST45 042462 75284 
TST46 6043416 77574 
TST47 044426 80234 
TST5 003440 8754 
TSTSO 045156 82034 
TST51 046016. 84624 
TSTS2 046756 87374 
TST53 047620 89924 
TSTS4 050562 92624 
TST5SS =. 0552240 96524 
TSTS6 3 =: 054 01144 
TST57 6.055274 103574 
TST6 00 9394 
TST60 0563522 106074 
TST7 005460 13204 
TYPDS = 104405 10790 
TYPE = 104401 456 
11345 
TYPOC = 104402 11301 
TYPON = 104404 114204 
TYPOS = 104403 114194 
T1 006310 15064 
™10 | 1540 
T7105 006452 1535 
111 006454 15494 
T12 006456 15524 
113 006472 15554 
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55924 


11209 


11298 


11299 


11302 


11315 


SEQ 0255 


11326 


ee ee 


4 
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T14 006526 1565 15674 
T15 006530 15684 1608 1640 
T16 006532 15694 1610 
117 006550 1574 15774 
T2 006330 18124 1513 
T20 006610 15894 1599 
T21 006624 15944 1596 
T22 006626 1593 15954 
T23 006640 1590 15994 
T3 006370 1523 15244 
T4 006372 18254 1604 
TS 006374 13608 1606 
T6 006420 15 1545 
17 006434 15394 et 
017676 3620 3647 3662 3673 3678 37104 

UERRO 017342 3511 36234 
UERR1 017366 3532 3593 36334 
UERR10 017374 36354 3649 
UERR11 017436 36444 
UERR2 017452 3555 3574 36484 
UERR2ZO 017460 3634 36504 
UERR21 017522 36594 
UERR3S 017536 3608 36654 
UERR4 01 3672 36744 
UFLAG 017 3503* 3594 3601* hey 

TOO 017612 3504 3516 3539 560 3579 3597 3611 36798 
UPATO1 017614 
UPATO2 017616 36814 
UPATO3 017620 36824 
UPAT1O 017622 3522 36844 
UPAT11 017624 36854 
UPAT12 017626 
UPAT13 017630 36874 
UPAT20 017632 3545 36894 
UPAT21 017634 36904 
UPAT22 017636 36914 
UPAT23 017640 36924 

AT3O 017642 3565 36944 
UPAT31 7644 36954 

AT32 7646 
UPAT33 7650 36974 

AT4O 017652 3584 3613 36994 
UPAT41 017654 3 
UPAT42 017656 37014 
UPAT43 017660 37024 
UROM1 017670 3518* 3541* +308 3581*x 3650 7074 
UROM2 017672 3519*  3542* 565* aeee 51 7084 
UROMS 017674 3520* 3543*  3564* 583* 36 7094 
UTMP1 017664 3509* 3518 3581 ¢ 054 
UTMP2 017666 3510* 3541 3562 * 7064 
U0 016600 35064 3507 
UT 016630 35124 3604 
U10 017166 35854 3588 
U11 017170 5864 3625 
UT2 017222 3592 35944 
U13 017240 35994 3600 


mM 4 
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CJKDCB.P11 :26 
U14 017272 3595 36054 
U15 017322 36144 17 
U16 017324 36154 5 
Ue 016674 35234 267 
U3 016726 3531 35344 
US 016772 35474 3549 
US 017024 3554 35564 
U6 017070 35674 3569 
U? 017122 3573 35754 

020374 38434 
WDATO1 020376 38444 
WDATO2 020400 38454 
WDATOS 020402 38464 

020404 3741 3749 
WPATOO 020364 3726 3729 

3816 3820 

WPATOi 020366 38394 
WPATO2 020370 38404 
WPATOS 0203572 38414 
wi! 01 37228 
w10 020106 3768 37714 
w11 020134 3773 37798 
Wi2 020164 3785 37874 
W135 020210 3 3799 
W14 C20220 3795 37994 
Ww15 3801 38074 
W16 020302 3813 38174 
W17 020326 38244 3829 
we 017730 3728 37304 
w20 020336 3825 38294 
w5 017754 3737#@ 863742 
wn 017766 3738 37424 
WS 16 3744 37504 
w6 2 3756 37 
W7 76 376784 3771 
KAPT11 021162 4 
XBUF 057114 10652 10654 
XDATOO 021140 3876 3900 
XDATO1 021142 3 
XDATO2 021144 39914 
XDATOS 021146 3992# 

021200 3960 3968 
XERR1 021024 3882 3906 
XERR2 021106 3887 3917 
XERRS 021052 3930 3 
KERRS 021122 3935 3959 
XNEXT 057224 16744 = 107 
XPATO 057214 10691* 10692 
XPATO 057124 10621 10623 
XPATOO 1150 3868 3878 
XPATO1 021152 39954 
XPATO2 021154 39964 
XPATO3 021156 39974 
XPAT1 057134 10751 
XPAT10 021160 3872 3896 
XPAT12 021164 40014 


3674 


3770 
3735 
3822 


10666 
3924 


3974 


10698* 
10632 
3916 


3920 


3778 


3735 
38384 


10668 
3948 


3982 


ge 
i 


3944 


3798 3508 3831 3836 


ANWWG 
“Ico 
On 
woo 


38484 

3754 59 3765 3783 3786 3790 3792 
10683 10685 10731 10733 10747# 

3966 3971 39894 

3987 40084 

107634 
10645 10676 10705 107494 

3994" 

3964 3969 39998 


SEQ 0257 


3811 


N 4 
CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR~80 15:31 PAGE 245 
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CJKDCB.P11 
XPAT13 11 
XPAT2 057144 
XPAT20 021170 
XPAT21 SABES, 
XPAT22 021174 
XPAT23 021176 
XPAT3 057154 
XPAT4 057164 
XPATS 057174 
XPAT6 057204 
Xx TMP 1136 
xT1 0 

XT1A 056342 
xT10 056754 - 
xT11 057002 
xT12 057030 
xT13 057064 
xT13B 057112 
xT2 056344 
XT2A 056364 
XT28 056402 
xT3 056414 
XT3A 056436 
XT4 056446 
XT4A 056476 
XT4B 056510 
xT5 056526 
XTSA 056 
xT5B8 056 
XT6 056576 
XT6A 056624 
XT6B 

xT7 056654 
xT8 056702 
xT9 056730 
Xx 056324 
x1 020410 
x10 020602 
x11 020616 
x12 020652 
x13 020676 
X14 020704 
x15 020720 
x16 020754 
x17 021000 
x2 020444 
x20 021006 
X27 021022 
x3 020470 
x4 020476 
x5 020514 
x6 020550 
x7 20574 
YDATOO 021544 
YDATO1 021546 
YDATO2 021550 


ee ee ee ee 


SeOSSRSS Secs 
Ze ider Sessa e 


Is 
32 


oo 
SNNNS 
OOM ROA oO 


Aas Stel dcr de 

Mvivi —_— 
BOUIOWOV'! 

ee ee ee ee ee ee ee ee ee ee 


BaSee 


33 


sf 


107534 
3902 


RERRERRETSREEISAS SE 
Be saa saae arene 


= 


107044 


3940 


3917s 


4067 


3950 


3941* 


4075 


40034 


10714 


3965 


40914 


10721 


3970 


10722 


3972 


10729 


39884 


107574 
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CJKDCB.P11 12-MAR~ CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0259 


YDATOS 021552 40944 
YDONE 604 


Os! 4055 14 4078 4084 41114 
YERR1 021404 4060 406 
YERR2 021446 4 40714 
YERRS 021510 4047 40 
YFLAG 021534 4024* 4048  -4050* 40864 
YPATOO 021554 4025 4052 40964 
YPATO? 021556 40974 
YPATO2 021560 40984 
YPATOS 021562 40994 
YPAT10 021564 4026 4051 41014 
YPAT11 021566 41024 
YPAT12 021570 41034 
YPAT13 021572 41044 
YPAT20 021574 4032 4066 4074 41064 
YPAT21 021576 41074 
YPAT22 Q21 41084 
YPAT23 021602 41094 
YTMP1 021536 4025* 4034 4051* 4057 4065 4073 40874 
YTMP2 021540 4026* 4041 4052* 4068 4076 40884 
YTMPS 021542 4027* 4045 4053* 4082 40894 
Y1 021232 40284 4054 ‘ 
Y2 021254 40354 4064 4072 4080 
Y3 021300 40424 4044 
voy 021316 4046 4 
¥5 021356 4049 40554 
Y6 021360 4043 40564 
Y7 021374 4059# 4 
ZDATOO 022046 4141 4163 41784 
ZDATO1 022050 41798 
ZDATO2 022052 41804 
ZDATOS 022054 41814 
022106 4158 4166 4172 41984 

ZERR? 021752 4147 4159# 
ZERR2 022014 4151 41674 
ZFLAG 022040 4128* 4152 4154* 41748 
ZPATOO 022056 4129 41834 
ZPATO1 022060 4] 
ZPATO2 022062 41854 
ZPATOS 022064 41 
ZPAT10 022066 4155 41884 
ZPAT11 0220 41 
ZPAT12 2072 41 
ZPAT13 022074 41914 

AT 022076 4135 4162 41934 
ZPAT21 0221 41944 
ZPAT22 022102 41954 
ZPAT23 022104 41964 

022042 4129* 4137 4144 4155* 4161 4164 41754 

z™P2 (02 4130* 4149 4156* 4170 41764 
Z1 021630 41318 4157 
Z2 021652 4] 4160 4168 
73 021676 41454 4148 
oo 1704 4146 41484 
Z5 021716 4150 4152a 
76 021750 4153 41584 


¢ 3 
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CJKDCB.P11 12-MAR~-80 15:26 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0260 
THD 001452 377 3834 
SASTAT= xeeeee U 11253 11268 
S$ATYC 061210 11224 112264 
SATY1 061164 112224 
$ATY3 061172 11021 112234 
SATYS 061202 10926 112254 
SAUTOB 001134 2064 466* 11295 11385 
001372 3124 
001122 2014 
T 001126 2034 648* 663* 679* 694* 711* 726* © 742* 757* 
SBELL 1306 26 10913 10946 
$CDW1 001376 3144 
ScDW2 001400 3154 
SCHARC 060506 11038* 11048* 11055 11064* 110694 
KSWR 061432 112874 11425 
S$CLR.T 057320 10795 107984 
SCMTAG 001100 1894 394 395 403 409 410 411 
= 000024 2214 2224 ie 224A 2254 264 227A 2284 2294 2304 2314 2328 2334 
2344 2354 2 § 7A 2 394 2404 2414 
$cmM2 = 000050 221A 2228 2234 244 2254 2264 227A 2284 2294 2304 2314 2328 2334 
2344 2354 2 23574 2384 2394 2404 2414 
S$CM3 = 000024 2198 221 
= 000024 2414 2424 2434 2444 2454 2464 2478 2484 2494 2504 2514 2524 2534 
2544 2554 2564 257A 2584 2594 2604 2614 
SCNTLG 062041 11298 113804 
SCNTLU 062034 11315 113794 
SCPUOP 001344 2864 
SCRLF 0013135 2654 10921 10946 11037 11072 11326 11488 11512 
SDBLK 061154 11175 11209 112178 
SDDWO 001402 164 
$DDW1 001404 3174 
SDDW10 001426 3264 
$DDW11 001430 3274 
$DDW12 001432 3284 
SDDW13 001434 
$SDDW14 001436 3 
$DDW15 001440 3314 
SDDW2 1406 3184 
$DDW3 001410 3194 
SDDW4 0S s«001412 3 
SDDWS 001414 3214 
SDDW6 001416 3224 
SDDW7 420 3234 
SDDWB 001422 3244 
SDDW9 001424 SH 
SDEVCT 001326 217 
SDEVM 001374 134 
SDOAGN 057370 0784 108094 
SDTBL 061144 11178 112138 
SENDAD 2 454 107994 10941 
SENDCT 7260 107864 
SENDMG 057437 108234 
SENULL 7434 10791 108224 
NV 1336 on 460 10923 11016 11231 £11255 
001337 2834 446 11018 11023 £11233 . 
057224 107774 11548 11564 #11580 ’ 
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CJKDCB.P11_ - 12=MAR=80 15:26 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0261 
SEOPCT 057252 409* 107834 10787 3 
$ERFLG 001103 192" 10832 10861 10863 10869* 10891 10908* 10946 
SERMAX 001115 1984 412« 10863 10886* 10891 
SERROR 057734 «== 403 1 ) 
SERRPC 001116 1o3¢ 10d1s= 10916" 10917 10946 11491 11499 
RRTB 001442 350# 11505 
SERTTL 001112 196# 10914» 10946 
SESCAP 001 262# 411% 10885* 10937 10939 10946 
SETABL 0013 2814 : 
SETEND 001442 3 389 
SFATAL 001 11259* 
SFFLG 061430 11222e 11225* 11253 11262" 11270# 
$FILLC 0011 217# 11041 =11072 
$FILLS 001155 216# 11072 
0011 2008 
T 001124 2024 | 
$GET42 057302 107928 
061 Vegge 11423 
$HIBTS 001452 3848 : 
T 0011 1934 10876* 10877 |10879* 10890 
SILLUP 0623 11437. 11453114748 | 
SINTAG 001135 11327 11385 
SITEMB 001114 197# 10917* 10925 10946 11494 
F = 001314 266# 10946 11072 
$SLFLG 061427 11263* 112698 | 
$LOOP 057426 10816 108194 
$LPADR 0011 1944 427% 10867* {10883* 10888 10890 
SLPERR 001110 195# 428% 10867 '10884* 10890 10936 11589» 
$MADR1 0013 2998 | 
SMADR2 001354 3034 | 
$MADR3 001 306" | 
SMADR4 001364 309" ' 
$MAIL 001316 272# 6385389 445 4H) 10882-10923 11016 
SMAMS1 001346 2938 
SMAMS2 001352 3014 
SMAMS3 001356 3044 
SMAMS4 001362 3074 : 
SMBADR 001454 3854 
$MFLG 061426 11223" 11229 11264* 112684 
SNE Wd 2 11383" 
$MSGAD 001332 11239" 11242 
$MSGLG 0013 2804 11244 ? 
$MSGTY 001316 2734 11237 11245" 11257 112618 
11299 113814 
YP1 001 24H 
SMTYP2 001353 3024 
$MTYP3 001357 3054 
SMTYP4 001363 
SMXCNT 057732 108904 
001154 215# 11043 11072 
SNWTST= 000001 4854# «487 —Si(ié*S 72M == s«S74_—i“‘éi 3 76OM O77], 67H BED 26H 928) 13 14H 
1316 1499" 1501, 1675" «1677, 2106 = 2108, a3eee 838k ake 2491 25948 = 25 
26974 2699 28044 2806 144 3916 30644 3066 3217# 3219 3343# 3345 34878 
3489 37134 3715 3856" 3858  4015# 4017 4117 4179 4206# - 4208 4414 = 4416 
4721" 4723 4989" 4991 5327" 5329 S5461# 5463 S581# 5583 S91S# = S917 64158 


CJKDCB=A _ KEF11-A FP “yy 


PART 1 MACY11 3 
15:26 


114534 
10946 
11426 


8993 


12-MAR-80 


mm 
15:31 PAGE 249 


CROSS REFERENCE TABLE =~ USER SYMBOLS 


0A(1052) 

6768 70914 
84534 455 
10351 106014 

111474 

11109 = 11112* 

10868 10878 

10780* 10781* 

11465 

11072 =. 11345 
422* 10796 

11455" 11456* 
401 403 

10933 10941 

4 261 

876 940 
2663 3351 
5593 5930 
9263 9653 


72544 


8727 


111494 
10874 


7256 
89844 


10891 


75214 


8986 


410 


7523 
92544 


77494 


9256 


413 





7751 
96444 


427 





80154 
9646 


454 


497 
2705 
4733 
8204 


10837 


Tne saa aaaasaaasaaaaaaaaaaaaaaaasaasaaaaaaaal 
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10855 10857 10858 10861 10862 10863 10870 10871 10872 10884 10887 10890 10898 
0899 10900 10902. 10911 + 10918 10930 .10934 10946 11471 










1 10901 ‘ 
SSWREG 001340 2844 448 f 
SSWRMK= 000000 10837 10838 10859 | 
SSWRMS= 000200 474 t 
STAB 062736 116194 | P 
$TBIT 057432 426* 10813* 108214 11472* ' , 
= 000032 114314 
STESTN 001322 275 10882* 
STIMES 001302 2614 410* 10779* 10870* 10877 10880* 10890 
$ 001146 2124 11291 11308 11362 11368 
$TKS 001144 2114 11280 11289 11305 11329* 11360 11366 
001232 2414 10803* 10808 11489" 11490* 
STMP1 001234 2428 114918 : 
STMP10 001252 249% 1207* 1238* 1243* 1273% 3524% 3568* 3568*  3587* 5734* 5743* 5752* 5761* 
5770* 5779* « 5797 5806* 5815* 5824* 5833* 6155* 6165* 6175* 6187*  6197* 
6226* 6236*  6246* 56* 66* 6276* 6306* 6316* 6326* 6336*  6346*  6356* 7234* 
7480 7703* 7974* 148* 28 * S7* 9127+  9570* 10024* 10275* 10521* 
$STMP11 001254 250@ 5735* 5744* 753* 4S 71* 780* 5789* 5798* 5807+ 5816* 5825* 5834* 
156* 6166* 6176* o198* 6198* vet 6237* 6247* 6257* 6267* 6277* 6307* 6317* 
6327* 6337* 6347*  6357* + 18* Seco B690* 8887« 8965* 9156* 9234" 9571* 
9620* 10026* 10085* 1oe7ee 10321* 1066s 10575* 
STMP12 001256 2514 9572* 9621* 3 * 1 * 10277* 10322* 10523* 10576* 
STMP13 001260 2524 10278* 10327* 10524* 10581* 
STMP14 001262 2534 10279* 10328* 10525* 10582* 
STMP15S 001264 2544 * 1262 
STMP16 001266 2554 
$ST™MP17 001270 2564 
S™™P2 001236 2434 528* 542 555* 560* 598« 639* 656* 686* 703* 718* 734* 
749% * * 1* 9i2e 986* * 1339* 1388* 1436* 1464* 
1523* 1565* 1614* 1640* 1689* 17178 1765" 1774* 8 1858* 1886* 1914* 
1942* 1970* * 269 2400* Seen. aaee qeees 2454% 2665* 2544" 2550* 
2559* 2649 654* * 7518 758* * * 2874* =» 2996 3001* 
3011*  3023* 28* 147* 163* 176* 181* 3298* » 3313 3428 
3433*  3436* Qe 525% 549* 569* 3588 3626* 3674* %3728* #3756* 
3785* 3813 3871* s 198 3e «= 4064 * * 4 4168* 4223* 4253* 
4289* 4315 4328* 464332*  4431* e® 4664872 46517* 4578+ 4739* 4763* 4790 
4814* 4844* 4866+ 5003* 5033* * 2 5108* S167* $341* $3722 #£5477* 
5500* » 5634* 5660 5714 1 ® 59612 $9771 5976* 60035 





2 
6028* 6038 604 e $199 
6526* 6547*  6584* 15 veep * 108* 7132 
7953* 8 8335* Seeee g * 8658+  8685* 


001276 
001300 
001240 30+ 844" B96 902* 915* 1054 1062 1092* £71100* 
85* 11930 1201* 1209s Jess 1437* 1465* 1616* 1641* 
23° * 655* * S2s eae 2771 #2858 2868" 
et 174* 182* 20° 307s 38* 55* 3644" 3659* 
34 964* a 979 * 4065" 4073* 4081* 4161* 
« 4364e 43702 4604* 4608" 4611" 4617" 4623* * 
$ « 6656* 4659* 4662* 4886= 4895* 4905= 4914= 4920* 
138 #5 soe 2ge7* $2342 $2d1e $2468e $255" $262* 5269" 
417e 5424 5519% 5525* $533e S$736* $745* $754" 5765» 
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S772 5781* 5790" 5799% 5808"  5817* 28e6" 5835* 5850* 6147* 6157* 
6189* 6199" 6218* Goes 62 “ ork 6 ? * * 


6338 a yr 906 * * 7200 
7473* 7696 7967* 141* 8323* 595* 8 ¢ ries 9562* 10016* 10267* 1 
STMP4 001242 2454 604* 610* By bb 845* 897* 061* * 1099 


STMPS = 001244 2464 


STMP6 001246 2478 | 


s™™P7 007250 2484 


$TPB 001152 2144 





405 
STRAP2 062112 11405¢ 


CJKDCB-A_KEF11-A FP DIAG 
2-MAR~80 


CJKDCB.P11 


STRP 
STRPAD 


= 000015 


062124 


060740 
30 


062612 
062620 


seetenre U 


001452 


Ns 


2.2 we 
Om FH Wwe & 
SERSSeNeesss & 
er oR Es 


ce eee a eed etd 


eee 


ee et etd et od 
—2a —s 
oo 


Bun 
Seex 


$35 
#3 


-~ 
, at eee 

eeu 
on 


— —s -.) 3 
—_ — 2 
x 


MACY11 30A(1052) 


12-MAR=80 


15:31 


5 
"PAGE 252 
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114194 


11113 


1884 
4708 


114204 


10859 


111484 


267 
28244 


114214 


10881* 


11060 


362 
10890 


11422a 
10882 


11331 


3634 
10891 


11425 


10887 


3654 
10946 


een 


' 


SEQ 0265 | 


114246@ 114625 1146264 ‘1427# 114284 114298 
10891 10910 10946 11489 

74 73 3748 3764 3784 398 
110% 113178 112714 11280 11385 114351 


cece LL LLL a — 


I 5 
CJKDCB=A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR=80 15:31 PAGE 254 
CJKDCB.P11 12=MAR-80 15:26 CROSS REFERENCE TABLE =~ MACRO NAMES 


' 


SEQ 0266 


ACCMAC 19# 1688 1716 1744 1773 1801 1829 1857 1885 1913 1941 1969 1997 
ASMAC 134 865198 5205 5212 5219 5226 5235 5 rt 5247 5254 266) 5268 5275 5402 5409 
5416 5423 5524 5532 5736 5745 5754 576 5772 5781 5790 5799 5808 5817 5826 
5835 6147 6157 o1¢! 6177 6189 6199 6218 6228 6238 6248 6258 6268 6278 6298 
6318 6328 63 6348 6358 : 
ASMAC 2 144 57353 $742 5751 5760 5769 5778 578 5796 5805 5814 5823 5832 6154 6 
6174 6186 6196 6225 6235 6245 6255 6265 6275 6305 6315 6325 6335 6345 6355 
COMMEN 1614 
ENDCOM 1614 
ENDPAS 34 
ERROR 554 520 531 544 557 562 605 611 649 664 695 712 727 743 
758 808 832 846 856 898 916 1058 1078 1082 1093 1115 1119 1128 
1143 1159 1174 1189 1197 1203 1222 1232 1239 1258 1268 1275 1440 1447 1455 
1467 1618 1625 1632 1643 2062 2274 2422 $368 2434 2437 2441 2444 2456 2467 
2 2553 2562 2650 2657 666 754 $18) 27 2860 2870 2877 2888 
3012 3024 3031 3149 3157 3164 177 184 3292 3306 3309 3317 3450 3450 
3457 3619 362 3646 3661 77 3740 3748 3769 377 3797 3805 3827 3835 3967 
73 3981 4069 4077 4083 4165 4171 4330 4334 4342 4348 4356 
4374 4605 “ 4615 4621 4630 4636 g 4651 88 4907 4916 4922 4931 
$196 520 5210 5217 5224 5231 5238 524 525 5259 5266 5273 
5414 5421 5428 5521 29 5537 5740 5749 575 67 5776 5785 5803 5812 
1 8 5839 5853 6151 6161, 6171 6181 619 22 6232 6242 6252 
6272 6302 6312 6322 O36 ox6 6352 6 6641 6652 58 3 
6691 6700 678 680 gets $s 6884 6902 6937 
6955 6973 6991 7057 ate 7205 7214 22 ¢ 5 os 7286 7299 7311 7323 7335 
7347 7373 7385 739 7410 pase 7502 7506 7544 7560 7576 7592 7608 7 
7641 7730 7734 7769 7782 7794 7 rere 7831 7868 
7916 8000 8039 8056 8072 gy: 817 8179 8217 8234 8237 8252 8254 
8269 8272 8368 8372 7 8401 8433 8437 84 82 8501 8505 8522 8524 
8546 8644 8669 8673 8705 8709 8751 769 8771 8786 8788 8803 
8913 8921 8925 8950 9010 901 9031 33 9052 9054 9073 9075 9178 
9182 9190 9194 9219 9223 9276 9278 929 9 9 19 9312 9327 329 9344 9346 
9361 9379 9382 9397 9 9414 9416 9431 3 9450 9465 9467 
9501 9602 9616 2 2676 ps the 9695 9697 9718 9720 9741 9743 9764 
9766 9787 9 9811 9814 9835 983 59 9862 9907 9909 9930 9932 
1 10081 0087 10129 10731 10149 10165 10167 10186 10203 10205 10305 10517 
10323 10378 10 104604 10426 10428 10452 10554 10577 10577 10613 10620 10625 10629 10636 
1 10647 10651 10656 1 10665 10670 10678 10682 10687 10694 10701 10710 10718 10726 
10735 10743 11542 11558 11574 
ESCAPE 1614 
GETPRI 161 
GE TSWR 1614 4574 
HMAC 1 1 2126 2130 2134 2138 2142 
HMAC 2 17# 2226 2230 22354 2238 2242 
HMAC 3 184 82151 2164 2177 2190 2203 
LOADTP 4a 
LPER 234 97 579 633 651 666 682 697 714 745 790 876 941 
1321 1372 1506 1549 1692 1720 1748 177 180? 8 1 1889 1917 1945 1973 
1 2114 2331 2364 2497 rage 2705 351 3534 35 3575 3605 3722 3750 3779 
7 3888 3912 3936 402 4131 421 o655 42 4427 4456 ae 4515 4 
4574 47 4759 4788 4812 4842 4864 4 $3 505 5075 5104 5133 5163 5337 
5 5473 5496 5596 5629 5655 5 5710 5932 595 5 6024 ? 6092 
6457 6504 6521 6543 6575 6607 677 oy 1 6837 6852 6870 6888 6 
6923 6941 6959 6977 71 ari 7150 ¢62 ? fe 7302 7314 7326 7338 7351 
7376 7 7401 741 7531 7547 7563 79 7595 7612 7628 7760 7772 7785 
7797 7 7822 7835 7847 7859 7871 7883 7895 8026 8059 8075 8 


ee 





i 
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CJKDCB.P11 12=MAR-80 ROSS REFERENCE TABLE -- MACRO SEQ 0267 | 
} 
8223 41 8258 8465 84 ? 529 740 758 775. ~—s«879 8995 99016 9037 9058 | 
9265 $582 8535 9316 8388 8395 3368 3586 403 420 943 9454 9471 9488 9655 | 
9701 9724 9747 +9770 9794 981 9841 9867 9890 9913 9936 10117 10135 10153 
10172 10191 10360 10384 10408 10432 10608 10672 
MSG 485¢@ 487 S720" 3=— «574 6214 7694 #771 #&- 8674 869 9264 928 13144 1316 14984 
1501 16744 1677 21064 2108 g on 33 4 e484 491 23934 596 | 2596" 2699 2803" 2 
29134 1 30634 3066 2164 3219 3424 3345 4874 9 71 15 3856" 58 40154 
17 «4117 = = 4119 308 44144 4416 47214 4723 4989" 499 53274 5329 54614 5463 
55814 S583 5914# 5917 64144 7 67654 6768 904 72534 «6 7256-—S i 7520H = 75230—Ctsié«é‘7'7G BHP 
14a 7 81934 8196 84508 8455 87244 8727 89834 8 2534 9256 
1010S# 1 10351 06004 1060 
MULT 1614 
NAME P 450 
NEWTST 1614 485 572 621 67 13146 1499 1675 2106 2322 2% 2594 2697 
2804 2914 3064 3217 3343 3487 3713 3856 4015 4117 4206 4414 4721 4% 7 
5461 1 5915 6415 6 7091 7254 37521 7749 =68015.—s« 8194 3 »= 8725 9254 
ae 9644 10106 10349 10601 
PoP 1614 10985 11206 11265 11266 11458 11459 
161# 10965 11163 11226 11228 11249 11439 11445 
REPORT 1614 
RSET ] 61 61 859 918 1306 #1491 1666 2098 23146 2482 2586 2689 27% 
3056 3335 BO 3848 4008 #$=®(4111 4198 4408 4714 4888 4897 4983 5455 
7 6756 1 245 7512 7740 8006 #8185 8443 8715 8974 9243 9634 100% 
— 10339 10593 11543 11559 11575 
SCOPE 578 632 875 939 1320 1505 2113. 23 2496 2601 


S64 4% 789 1686 30 2704 
2812 2921 3072 3223 3350 3502 3721 3863 4023 4127 = 4214 4425 4732 4997 5335 
5471 5592 5929 6421 6774 7099 7262 7528 7757 8025 8203 8462 8737 8992 9262 


SETTRA 114094 a, 11419 11420 11421 11423 11625 11426 11427 11428 11429 114350 


SKIP 1614 
SLASH 1614 
SPACE 1614 
SSKAD 224 
STARS 1614 184 267 270 370 72 379 485 495 572 577 621 631 769 
867 874 926 938 1314 1319 1499 15 1675 1685 2106 2112 2322 
2495 2594 2600 2697 2703 2811 2914 2920 3064 3071 3217 3222 3345 
3349 3487 3501 37135 3720 ag20 4015 4022 4117 4126 206 4213 4414 4424 
4721 4731 4989 = 5327 5334 5461 5470 9581 5591 5915 5928 6415 6420 6766 
7091 7098 7254 7261 7521 7527 7749 7756 8015 8022 8194 84535 1 
8 8984 8991 9254 706! 9644 9651 10106 10113 10349 10356 10607 10606 10769 
10776 10894 10949 0995 11075 11153 11221 11279 11282 11550 388 11435. 11451 11479 
11530 11552 11568 11586 11594 


5 

CJKDCB<A KEF11-A FP DIAG PART 1 MACY11 30A(1052) 12-MAR~80 15:31 K BACE 256 

CJKDCB.P11 12=MAR=80 15:26 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0268 

TYPOC T 1614 11300 

TYPTXT 1614 

SSCMRE 1828 221 222 333 224 225 226 227 228 229 230 231 232 233 234 

235 236 237 2 239 40 
$SCMTM 1824 241 242 243 244 45 246 247 248 249 250 251 252 253 254 
255 256 257 258 259 260 

SSESCA 1614 

SSNEWT 1614 485 572 621 769 867 926 1314 1499 1675 2106 2322 2489 2594 2697 
2 2914 3064 3217 3343 3487 3713 3856 4015 4117 4206 4414 4721 4989 $327 
5461 5581 5915 6415 6766 7091 7254 7521 7749 8015 8194 8453 8725 8984 9254 
9644 10106 10349 #10601 

$$SET 11409 11418 11419 11420 11421 11423 11425 11426 11427 11428 11429 11430 

$$SETM 4454 : 

$$SETU 4134 

$$SKIP 1614 

.EQUAT 294 51 

.HEADE 298 31 

. SETUP 298 170 

‘ I] 298 

.SACT1 294 358 

.SAPTB 298 2684 

.SAPTH 294 368 

.SAPTY 294 11219 

.SCATC 298 171 

t Pay] 182 

.SEOP 294 

.SERRO 294 10892 

: 294 11433 

.SREAD 294 11277 

.$SA 294 10947 

.$SCOP 294 10827 

$TRAP 294 11386 

.STYPD 294 11151 

_STYPE 294 10993 

_STYPO 294 11073 

. ABS. 063117 000 

ERRORS DETECTED: 0 


CJKDCB.BIN, CJKDCB.LST/CRF/SOL/NL : TOC=CJKDCB.P11 
RUN-TIME: 112 89 15 SECONDS 


RUN-TIME RATIO: 889/217=4.0 
(59 PAGES) 


CORE 


USED: 


30K 


